Spedizione in abbonamento postate Gruppo 111/70 



L. 7.500 

Maggio/Giug.1986 Annoi n°2/3 


ANATOMIA DI UN FOGLIO ELETTRONICO 

LA MUSICA SUL VIC 20 

VIC 20: LE LOCAZIONI CHIAVE 

IL GIOCO DEL FATTORE 

GRIGLIA ATOMICA 

LA MACCHINA DEL TEMPO PER PLUS/4 



STORIA SONORA 
BLINK 

BACKGAMMO 



GRUPPO EDITORIALE 

JACKSON 

OVISOME PERlOdO 






DIVISIONE GRANDI OPERE 


COMMODORE 16 ; 


plu^4 V MB 


Anno 1 - n° 2 - Maggio 1986 


4 &WRITE 

LA POSTA DEI LETTORI 



ANATOMIA DI UN 
FOGLIO ELETTRONICO 
di S. Bateman 

Trad. e adatt. 

di F. Sarcina 



LA MUSICA SUL VIC 20 
di D. Carmichael 

Trad. e adatt. 

di M. Anticoli 


14REM:HW 

VIC 20: LE LOCAZIONI 
CHIAVE 

di D. Carmichael 

Trad. e adatt. 

di F. Sarcina 



18 


IL GIOCO DEL 
FATTORE 
di D. M. Seurer 

Trad. e adatt. 

di F. Sarcina 


57 


BACKGAMMON 
di J. Vavasour 
e R. Rideout 

Trad. e adatt. 

di F. Sarcina 



GRIGLIA ATOMICA 
di G. F. Clement 

Trad. e adatt. 

di F. Sarcina 


Q/ILA MACCHINA DEL 
TEMPO PER PLUS/4 
di P. Manna 


61 


MIO sound-' 


PRINT SOUND 
di B. Bartlett 

Trad. e adatt. 

di S. Albarelli 


49 


STORIA SONORA 
di A. A. Kapauan 

Trad. e adatt. 


di S. Albarelli 


^ 5 "" B IN I 

RECENSIONI LIBRI 



BLINK 
di D. Sanner 

Trad. e adatt. 

di M. Cristuib Grizzi 


66 




PICCOLI ANNUNCI 


GRUPPO EDITORIALE JACKSON 
a.p.a. - San Francisco - Londra 
Madrid - Milano 

DIREZIONE, REDAZIONE, 
AMMINISTRAZIONE 

Via Rosellini, 12 

20124 MILANO 

Tel. (02) 68.80.951/2/3/4/5 

Telex 333436 GEJIT I 

SEDE LEGALE 

Via G. Pozzone, 5-20121 Milano 

CONSOCIATE ESTERE 
USA 

GEJ Publishing Group, Ine. 

a subsidiary of 

Gruppo Editoriale Jackson 

1307 S. Mary Avenue - 94087 Sunnyvale CA 

Tel. (408) 7730138 - Telex 49959972 

GRAN BRETAGNA 

GEJ Publishing Ltd. 

187 Oxford Street London WURIAJ 
Tel. (01) 4392931 • Telex (051)21248 

DIREZIONE EDITORIALE 

Daniele Comboni 

DIREZIONE AMMINISTRATIVA 

Giuliano Di Chiano 


DIREZIONE DIVISIONE LIBRI E 
GRANDI OPERE 

Roberto Pancaldi 

DIRETTORE RESPONSABILE 

Giampietro Zanga 

REDAZIONE 

Luca Zaninello 

HANNO COLLABORATO A 
QUESTO NUMERO 

S. Albarelli 
M. Anticoli 
M. Cristuib Grizzi 
P. Manna 
F. Sarcina 

GRAFICA E 1MPAGIN AZIONE 

Ivana Rossi 

FOTOCOMPOSIZIONE 

Graphotek 

Via Astesani, 16-20161 Milano 

STAMPA 

Centro Poligrafico Milan s.r.l. 

20089 Ponte Sesto di Rozzano (MI) 

PUBBLICITÀ 

Concessionaria per l’Italia e l’Estero 

J.Advertising s.r.l. 


Viale Restelli, 5-20124 Milano 
Tel. (02) 68.82.895-68.82.48-68.80.606 
TELEX 316213 REINA I 
Concessionaria per USA e Canada 

International Madia Marketing 

16704 Marguardt Avenue 
P O. Box 1217 - Cerritos CA 90701 
Tel.: (213) 926 - 9552 


DISTRIBUZIONE 

SODIP 

Via Zuretti, 25 • 20125 Milano 
Spedizione in abbonamento postale 
Gruppo III/70 
Pubblicità inferiore al 70% 

Prezzo della rivista L. 7.500 
Numero arretrato L. 15.000 
Abbonamento L. 82.500 
(11 numeri con cassetta); 

L. 38.500 (11 numeri senza cassetta) 
per l’Estero L. 110.000 (11 numeri con 
cassetta); L. 50.000 (11 numeri senza cassetta) 

I versamenti vanno indirizzati a: 

Gruppo Editoriale Jackson 
Via Rosellini, 12 -20124 Milano 
mediante emissione di assegno bancario, 
vaglia o utilizzando il C.C.P. n* 1666203 


Per i cambi di indirizzo indicare, oltre al 
nuovo, anche l’indirizzo precedente 
e allegare L. 500, anche in francobolli. 

AUTORIZZAZIONE ALLA 
PUBBLICAZIONE 

Tribunale di Milano in atto 

GLI ARTICOLI TRADOTTI SONO TRATTI 
DALLE RIVISTE 
COMPUTE! O DA 
COMPUTE! GAZETTE 
COMPUTE! PUBLICATION, INC. 

P.O. Box 5406, Greensboro, NC 27403 - USA 


Il Grappo Editoriale Jackson è 
iscritto noi Registro nazionale della 
Sta aspa al a* 117 voi. 2 - foglio 129 
In data 17-8-1982 

Rivista associata 
all’Unione 
Stampa 
Periodica 

flfWLlTi j Italiana 


ASSOFT Associata 



SUPERC16® 5/86 - 3 







I famosi operatori logici 

Spesso nei programmi della vostra rivista 
compaiono degli AND e degli OR che 
mi risultano di difficile comprensione. In 
alcuni confronti classici li capisco, ma mi 
creano difficoltà righe di questo tipo : 
POME 53365, PEEK(53265)AND25 
Mi potete aiutare a spiegare un po’ l’uso 
di tali funzioni, anche perché poi le possa 
usare io stesso ? 

G. Berlini 

R. AND, OR e NOT sono funzioni logi- 
che che, come quelle matematiche, pos- 
sono essere espresse in tabelle di verità. 
Facciamo un esempio: 

V and V = V V or V = V not V = F 

V and F = F V or F = V not F = V 

F and V = V F or V = V 

F and F = F F or F = F 

Perciò un esempio classico, che tu dici 
di capire, dell’uso di AND è questo: 

IF A=10 AND B=20 THEN 1000 (1) 

il programma salterà alla riga 1000 solo 
se A è uguale a 10 e B è uguale a 20. 
Ma nel Commodore, come negli altri 
computer, valgono alcune convenzioni 
di questo tipo: il bit 0 (off) rappresenta 
il valore “Falso”, mentre il bit 1 (on) 
quello “Vero”. Allora proviamo a fare 
una prova di quanto detto, dando al 
computer questa istruzione: 

PRINT75AND44 

il risultato sarà 8 e per capirne il motivo 
convertiamo i valori in binario e otterre- 
mo 

1001011 AND 
0101100 = 

0001000 

Si provi anche a scrivere V al posto di 
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I e F al posto di 0 e con la tabella 
precedente si otterrà lo stesso risultato. 
Analogamente si può fare con l’OR e il 
risultato, decimale, sarà 111. 

Per il NOT si provi a scrivere: 

PR1NTNOT5 

II risultato sarà un inaspettato -6, que- 
sto perché NOT aggiunge 1 e cambia 
di segno. I numeri su cui hanno effetto 
i tre operatori logici sono compresi tra 
-32768 e 32767. 

Un’istruzione come quella presentata 
nella domanda fa quindi la PO- 
KE53265, numero dove “numero” è 
dato dall’operazione di AND tra 
PEEK(53265), che è un nurtiero, e 25. 
Tipicamente, operazioni di questo tipo 
servono per settare un certo bit in una 
certa locazione di memoria e possono 
essere viste come una forma molto con- 
cisa ed efficace dell’uso di un’istruzione 
IF. 

Concludiamo dicendo che l’interprete 
BASIC valuta una linea di codice come 
la (1), assegnando un valore 0 (falso) o 
-1 (vero); è possibile vedere ciò scri- 
vendo: 

A=10 

PRINT (A=10) 

si otterrà naturalmente -1. 


INPUT senza? 

C’è qualche sistema per usare la INPUT 
per l’immissione dei dati, però senza che 
venga visualizzato il punto di doman- 
da? 

A. Nicoletti 

R. SI, c’è un metodo per realizzare ciò: 
il comando INPUT # permette di rice- 
vere informazioni da un file o da un 


dispositivo precedentemente aperto. 
Dato che la tastiera è un dispositivo che 
ha come numero di device 0, è possibile 
aprire un file in questo modo: 

OPEN 1,0: INPUT# 1,A$:PRINTA$: 
CLOSE1 

Questa istruzione non accetta stringhe 
vuote né spazi senza alcun altro caratte- 
re (che invece possono essere inseriti 
tra le parole). Come la classica INPUT, 
non viene considerato nessun altro ca- 
rattere dopo la virgola, ma diversamen- 
te da essa non visualizza il messaggio 
d’errore ?EXTRA IGNORED. 



OK-LIST 

S appiamo tutti quanto sia difficile di- 
gitare correttamente un programma 
(ovviamente, se non si dispone della 
cassetta allegata a SUPERCOMMO- 
DORE!). Errori di battitura anche banali 
possono provocare il malfunzionamento 
del programma stesso, o anche il blocco 
completo del sistema, obbligandoci a ri- 
fare il lavoro. 

Ma il punto di forza dei calcolatori è che 
essi eccellono nei compiti noiosi e che 
richiedono precisione. Scoprire un erro- 
re nella battitura di un listato è appunto 
un compito noioso, quindi perché non 
sfruttare il tuo computer per controllare 
i^ listati da te digitati? 

E proprio questo lo scopo di OK-LIST, 
il programma che ti permetterà di ri- 
sparmiare tempo e fatica. Annidato al- 
l’interno del tuo computer, OK-LIST 
controlla automaticamente ogni riga 
battuta, mostrandoti un numero in cima 
allo schermo ogni volta che premi il ta- 
sto RETURN. Un numero corrisponden- 
te nel listato del programma pubblicato 
ti permette il confronto, ed uno sguardo 
è sufficiente per avere la conferma di 
aver digitato la linea correttamente. 
OK-LIST è un breve programma in lin- 
guaggio macchina residente nel buffer 
del registratore. Esso rimane in tale zo- 
na finché spegni il computer o usi l’unità 
a cassette. 

Co«e digitare OK-LIST 

Vi sono due versioni di OK-LIST, una 
per VIC 20 e l’altra per C16 e Plus/4. 
Digita la versione adatta al tuo compu- 
ter, facendo attenzione a non commet- 
tere errori (per fortuna il listato è molto 
breve!). Dopo aver finito salvalo su di- 
sco o nastro, per lo meno un paio di 
volte, prima di mandarlo in esecuzione 
con il comando RUN, perché il pro- 
gramma BASIC, dopo aver memorizza- 
to la routine in linguaggio macchina (le 
istruzioni DATA), si autocancella. 

Come si noe OK-LIST 

A questo punto puoi iniziare a battere 
il tuo primo listato “a prova di errore”. 
Se non hai OK-LIST in memoria, carica- 
lo e attivalo con RUN. 

Digita quindi la prima linea di program- 
ma: come puoi vedere, in fondo ad essa 
c’è la parola “:rem” seguita da un nu- 
mero, che si chiama checksum. 

NON COPIARE QUESTA PARTE 
DELLA LINEA! Ora premi il tasto RE- 
TURN, come al solito. In alto a sinistra 
apparirà il checksum; confrontalo con 
quello che vedi scritto sulla rivista dopo 
w :rem”. Se i due numeri sono uguali, 
vuol dire che la linea è stata digitata 
correttamente, altrimenti controllala, 
perché evidentemente hai commesso 
un errore. Facile, no? 

OK-LIST non è pignolo per quel che 
riguarda gli spazi bianchi, dato che non 
fa caso alla loro presenza. Ciò torna a 
tuo vantaggio, dal momento che la spa- 


ziatura non è, in genere, importante. 
Ma all’interno delle istruzioni PRINT gli 
spazi spesso si rivelano necessari, quin- 
di presta attenzione quando digiti que- 
sto tipo di istruzione. Un’altra cosa a 
cui devi badare è che usando le forme 
abbreviate dei comandi (ad esempio ? 
per PRINT) il checksum visualizzato 
non coinciderà con quello presente sul 
listato. Ciò è tuttavia risolvibile, pre- 
mendo il tasto RETURN su una linea 
dopo averla listata: le abbreviazioni sa- 
ranno ricodificate nella loro forma inte- 
ra e quindi OK-LIST sarà in grado di 
svolgere perfettamente la sua funzione. 
In questo modo, inoltre, avrai la possibi 
lità di controllare interi gruppi di righe 
in una volta sola. 

Ovviamente, nessuno è perfetto, ed an- 
che OK-LIST ha qualche limite: se per 
caso ti capitasse (ma è un errore poco 
frequente) di “anagrammare” durante 
la digitazione una linea (per esempio 
invece di battere 10 PRINT“VAI”, digiti 
per errore 10 PRINT“VIA”), OK-LIST 
non se ne accorgerebbe. Inoltre la pre- 
senza del carattere SH1FT-SPAZIO mo- 
difica il numero di checksum rispetto al 
carattere SPAZIO normale, anche se la 
differenza non risulta visibile sul video 
del tuo computer. 

Se intendi sospendere il lavoro di digita- 
zione - o lo hai terminato - puoi salva- 
re su nastro o disco il tuo programma: 
ricordati comunque di premere RUN/ 
STOP e RESTORE su VIC 20, oppure 
RUN/STOP e RESET su C16 e Plus/4 
prima di dare il comando SAVE. Al mo- 
mento di riprendere il lavoro, tuttavia, 
non potrai più utilizzare OK-LIST, dal 
momento che qualsiasi operazione su 
cassetta lo distrugge. 

Se vuoi disabilitare OK-LIST in qualun 
que momento, senza perdere il tuo pro- 
gramma in memoria, premi RUN/ 
STOP e RESTORE su VIC 20 oppure 
RUN/STOP e RESET su C16 e Plus/4. 
Per riattivarlo batti: 

SYS 886 
Buon lavoro! 


OK-LIST 

versione per Vie 20 

10 PRINT" {CLR} ATTENDERE PREGO... 

M 

1 1 FORI -886T01 0 1 8 : READA : CK=CK + A : 
POKEI / A : NEXT 

12 IF CK< >1 7539 THEN PRINT" 
{GIU'lERRORE NELLE ISTRUZIONI 

DATA" : END 

13 SYS886 : PRI NT" {CLR} { 2 GIU'}OK 
-LIST ATTIVATO.": NEW 

14 DATAI 73,036,003,201 , 1 50,208 

15 DATA001 ,09b, 141 ,151 ,003,173 

16 DATA037, 003, 141 ,152,003,169 

17 DATA150, 141 ,036,003,169,003 

18 DATAI 41 ,037,003, 1 69,000, 1 33 

19 DATA254 ,096,032,087,241 ,1 33 

20 DATA 251 ,1 34,252, 1 32,253,008 

21 DATA20 1 ,01 3,240,01 7,201 ,032 

22 DATA240, 005, 024, 101 ,254,133 



23 

DATA2 

54 , 

,165, 

,251 , 

,166, 

,25 2, 

, 1 64 

24 

DATA 2 

5 3 , 

,040, 

,096, 

, 1 69, 

,013, 

,032 

2 5 

DATA 2 

1 0 , 

, 255, 

,165, 

,214, 

,141 , 

,251 

26 

DATAO 

0 3, 

r 206, 

, 251 , 

,00 3, 

,169, 

, 000 

2 7 

DATAI 

33, 

,216, 

,169, 

,01 9, 

,032, 

,210 

28 

DATA 2 

55, 

, 169, 

,018, 

,032, 

,210, 

, 255 

2 9 

DATAI 

69 ( 

, 0 5 8 , 

,0 32, 

,210, 

,255, 

, 1 66 

3 0 

DATA2 

54 , 

,16 9, 

, 000, 

,133, 

,254 , 

, 1 72 

31 

DATAI 

51 , 

,003, 

,192, 

, 087 , 

, 208, 

, 006 

32 

DATAO 

32, 

,205, 

,189, 

,076, 

,235, 

, 003 

33 

DATAO 

32, 

, 205, 

,221, 

,169, 

,032, 

,032 

34 

DATA 2 

io, 

, 2 5 5, 

,0 32, 

,210, 

, 2 5 5, 

173 

35 

DATA2 

51 , 

,00 3, 

,13 3, 

,214, 

,076, 

1 73 

36 

DATA0U3 







OK-LIST 

versione per C16 e Plus/4 

10 PRINT" {CLR} ATTENDERE PREGO... 

1 1 FORI = 8 8 bTO 1 Oì 8 : READA : CK = CK ♦ A : 
POKE I , A : NEXT 

1 2 IFCKOÌ 47 1 4 THENPR I NT" {GIU* } ER 
RORE NELLE ISTRUZIONI DATA" : E 
ND 

11 SYStìtib: PRINT" ICLR} { 2 GIU'}OK 

-LIST ATTIVATO. ": NEw 

14 DATAI 73,034,003,201 ,150,208 

15 DATA001 , 096, ! 4 1 , 1 51 , 003, 1 73 

16 DATA035,00i, 1 41 ,J 52,003, 1 69 

17 DATAI 50, 1 41 , 034,003, 1 69,003 

18 DATAMI ,035,003, 169,000,1 33 

19 DATA006, 096, 032, 232, 235, 1 33’ 

20 DATA003, 1 34, 004 , 1 32,005, 008 

21 DATA201 ,01 3, 240, 017, 20 1,032 

22 DATA240,005,024, 101 ,006, 1 33 

23 DATA006, 1 65, 003, 1 66, 004 , 1 64 

24 DATAQ0 5 ,040,096, 169,01 3,032 

25 DATA21 0, 255, 165,205,141,251' 

26 DATA003, 206, 251 ,003,169,000 

27 DATAI 33,207, 169,019,032,21 0 

28 DATA255, 169,018,032,210,255 

29 DATAI 69,058,032,210,255, 166 

30 DATA006, 1 69, 000, 1 33,006, 1 72 

31 DATAI 51 , 003,1 92,2 32,208,006 

32 DATA032, 095, 164,076,235,003 

33 DATA032, 007, 208, 169,032,032 

34 DATA 2 10,255,032,210,255, 173 

35 DATA251 ,003,133,205,076,173 

36 DATA003 
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MLX 

per VIC 20 



di C. Brannon 

trad. e adatt. 

di F. Stella 


M LX è un programma che permet- 
te di inserire listati in linguaggio 
macchina esenti in modo assoluto da 
errori e senza la perdita di tempo del 
dover battere e controllare lunghe se- 
quenze di istruzioni DATA. 

Molti dei nostri listati di programmi in 
linguaggio macchina hanno il formato 
MLX (li riconoscete dal fatto che sono 
esclusivamente numerici) e richiedono 
quindi che MLX sia caricato in memoria 
ed eseguito prima della battitura del li- 
stato. 

MLX vi chiederà l’indirizzo della loca- 
zione di partenza e quello della locazio- 
ne finale del programma da caricare. 
Questi valori sono sempre indicati nel- 
l’articolo che accompagna il listato. 
MLX vi segnala automaticamente gli er- 
rori di battitura MENTRE STATE DIGI- 
TANDO IL LISTATO e vi chiede di 
reinserire la linea errata. L’ultimo nu- 
mero battuto di ogni linea rappresenta 
il checksum e viene visualizzato in re- 
verse. 

Sono inoltre disponibili altri comandi, 
quali: 

SHIFT-N nuovo indirizzo: permette di 
cambiare l’indirizzo della linea che vole- 
te battere ed è utile nel caso si inserisca- 
no i listati in più parti. 


SHIFT-D display: lista i dati inseriti tra 
due indirizzi di inizio e fine. 

SHIFT-L load: carica un file da nastro 
o SHIFT-S save: salva su nastro o disco 
un file in formato MLX. 

Una volta battuto il listato, e salvatolo 
tramite MLX, si potrà caricare diretta- 
mente il programma con un’istruzione 


LOAD “nome del file”, 1,1 per il regi- 
stratore, oppure LOAD “nome del fi- 
le”^,! per l’unità a dischi, salvo diverse 
indicazioni date negli articoli corrispon- 
denti ai vari programmi. 11 programma 
sarà generalmente mandato in esecu- 
zione con una SYS (indirizzo di parten- 
za). 


MLX versione per VIC 20 

100 PRINT" {CLR} {PUR}" ;CHR$ (1 42) ;CHR$(8) ; 

: rem 1 81 

101 POKE788 ,194: REM DISABILITA RUN/STOP 

:rem 144 

110 PRINT" {RVS} { 14 SPAZI}" :rem 117 

120 PRINT" {RVS} {DES} {OFF} [<*>] £{RVS} 

{DES} {DES}{ 2 SPAZI} [<*>] {OFF} [<*>] 
£{RVS}£{RVS} " : rem 191 

130 PRINT"lRVS} {DES} [<G>]{DES} 

{ 2 DES} {OFF}£{RVS}£[<*>] {OFF} [<*>] 
{RVS} {OFF}" : rem 122 

140 PRINT" {RVS} { 14 SPAZI}" :rem 120 

200 PRINT" { 2 GIU’ } {PUR} {BLK}UN PROGRAMMA 
PER L' IN-TRODUZIONE { 2 SPAZI }DI ROUT 
INEIN LINGUAGGIO MACCHINA"; : rem 202 
205 PRINT" A PROVA DI ERRORE { 5 GIU'}" 

;rem 226 

210 PRINT" {BLK}{ 4 SUjlNDIRIZZO DI PARTEN 
ZA" : INPUTS ; F= 1 -F : C$=CHR$ (31+1 1 9*F) 

:rem 52 

220 IFS<256ORS>32767THENGOSUB3000 : GOTO 21 0 

: rem 2 

225 PRINT: PRINT: PRINT: PRINT :rem 123 

230 PRINT" {BLK}{ 3 SUjlNDIRIZZO CONCLUSIV 
O" : INPUTE: F = 1 - F :C$=CHR$ (31+1 1 9*F) 

:rem 170 

r 


240 IFE<2 56ORE>32767THENGOSUB3000 : GOTO230 

:rem 234 

250 IFE<STHENPRINTC$; " {RVS} INDIRIZZO CONC 
LUSIVO < INDIRIZZO DI PARTENZA 
{ 3 GIU' }" :GOSUBl 000: GOTO 2 30: rem 27 
260 PRINT: PRINT: PRINT :rem 179 

300 PRINT" {CLR}" ;CHR$ (1 4) :AD=S :rem 56 
31 0 PRINTRIGHT$ ("0000"+MID$ (STR$ (AD) ,2) , 5 
FORJ=lT06 :rem 234 

320 GOSUB570 : IFN=-1 THENJ =J+N : GOTO320 

: r em 228 

390 IFN=- 21 1 THEN71 0 :rem 62 

400 IFN=-204THEN790 :rem 64 

410 IFN=- 206THENPRINT: PRINT" {GIU ' }INSERIS 
CI UN NUOVO { 4 SPAZI {INDIRIZZO" ; : INPU 
TZZ :rem 42 

41 5 IFN=-206THENIFZZ<SORZZ>ETHENPRINT" 
{RVS} ESCE DAL CAMPO DI VA-" :rem 150 

41 6 IFN=-206THENIFZZ<SORZZ>ETHENPRINT" 
{RVSjLORI INDICATO" :GOSUBl 000:GOTO41 0 

:rem 105 

417 IFN=-206THENAD = ZZ : PRINT: GOTO 31 0 

:rem 238 

420 IFNO-1 96THEN480 :rem 133 

430 PRINT: INPUT" LISTATO : DA" ; F: PRINT, " 

{ 2 SIN}A" ; : INPUTT :rem 29 
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440 IFF<SORF>EORT<SORT>ETHENPRINT"MINIMO" 
; S; " {SIN} , MASSIMO" ; E: GOTO430 




: rem 

36 

770 

IF (PEEK (783) ANDl ) OR (ST ANDl 91 ) THEN780 

450 

FORI =FTOTSTEP6 : PRINT: PRINTRIGHT? ( 

"000 


: rem 

1 1 1 


0" +MID$ ( STR$ ( I ) ,2) ,5) 

: rem 

30 

775 

PRINT" {GIU 1 }OPERAZIONE CONCLUSA." 

: END 

455 

FORK=OTO5 : N=PEEK (I+K) : IFK = 

3THENPRINTS 


: rem 

1 52 


PC ( 1 0 ) ; 

: rem 

34 

780 

PRINT" {GIU' }ERRORE DI REGISTRAZIO 

-NE. 

457 

PRINTRIGHT$ ("00"+MID$ (STR$ (N) ,2) , 

3) ?" 


RIPROVA. ": IFDV=lTHEN720 :rem 

8 


H • 
r r 

: rem 

1 57 

781 

OPENl 5,8 , 1 5: INPUT# 1 5 ,El $ ,E2$ : PRINTEl $ 

460 

GETA$ : IFA$>" "THENPRINT: PRINT: G0T031 0 


; E2$ :CLOSEl 5 : GOTO720 :rem 

1 03 



: rem 

25 

782 

GOTO 720 : rem 

1 1 5 

470 

NEXTK: PRINTCHRS (20) ; :NEXTI 

: PRINT: 

PRIN 

790 

PRINT" {CLR} {RVS}*** LO AD *** 



T: GOTO 31 0 

: rem 

50 


{ 2 GIU' }" : rem 

21 2 

480 

IFN<0THENPRINT: GOTO 31 0 

: rem 

1 68 

800 

INPUT" { 2 GIU'} NOME DEL FILE";F$ 


490 

A ( J ) =N : NEXTJ 

: rem 

1 99 


: rem 

21 5 

500 

CKSUM=AD-INT (AD/256) *256:F0RI=lT06:CK 

810 

PRINT: PRINT" { 2 GIU '} {RVS }N {OFF } ASTRO 


SUM= (CKSUM+A ( I ) ) AND 2 55 : NEXT : rem 

200 


O {RVS }D {OFF } ISCO: (N/D)" :rem 

127 

510 

PRINTCHR? (1 8) ; :GOSUB570 : PRINTCHR$ (20) 

820 

GETA$ : IFA$< >"N"ANDA$< >"D"THEN82 0 




: rem 

234 


: rem 

28 

515 

IFN=CKSUMTHEN530 

: rem 

255 

830 

DV=l-7* (A$ = "D") : IFDV=8THENF$=" 0 : " 

+F$ 

520 

PRINT: PRINT" LA RIGA E' STATA INSE 

-RIT 


: rem 

1 57 


A IN MANIERA ERRATA" 

: rem 

39 

840 

T$=F$: ZK=PEEK (53) +256* PEEK (54) -LEN (T$ 

525 

PRINT" RI- INSERIRLA" : PRINT: 

GOSUBl 000 : G 


) :POKE782 ,ZK/256 :rem 

2 


OT031 0 

: rem 

1 67 

841 

POKE781 , ZK-PEEK (782) * 2 56 : POKE78 0 , 

LEN ( 

530 

GOSUB2000 

: rem 

21 8 


T$ ) : SYS65469 :rem 

107 

540 

FORI=lT06: POKEAD+I-1 ,A(I) : 

NEXT 


845 

POKE780 , 1 : POKE781 , DV: POKE782 , 1 :SYS654 



: rem 

80 


66 :rem 

70 

550 

AD=AD+6: IFAD<ETHEN31 0 

: rem 

212 

850 

POKE780, 0: SYS65493 :rem 

1 1 

560 

GOTO 71 0 

: rem 

1 08 

860 

IF (PEEK (783) ANDl ) OR (ST ANDl 91 ) THEN870 

570 

N=0 : Z=0 

: rem 

88 


: rem 

1 1 1 

580 

PRINT" [<+>] " ; 

: rem 

79 

865 

PRINT" {GIU' }OPERAZIONE CONCLUSA." 

: GOT 

581 

GETA$ : I F A$ = " " THEN 5 8 1 

: rem 

95 


0310 :rem 

142 

585 

PRINTCHRS (20) ; :A=ASC (A$) : IFA=1 30RA=44 

870 

PRINT" {GIU' }ERRORE DI CARICAMENTO 

. RI P 


ORA=32THEN670 

: rem 

229 


ROVA. {GIU 1 }":IFDV=1 THEN800 : rem 

43 

590 

IFA>1 28THENN=-A: RETURN 

: rem 

1 37 

880 

OPENl 5,8,1 5: INPUT#! 5, El$,E2$ : PRINTEl $ 

600 

IFA020THEN630 

: rem 

1 0 


;E2$:CLOSEl 5:GOTO800 :rem 

1 02 

610 

GOSUB690: IFI=1 ANDT=44THENN 

=-l : PRINT" 

1 000 

REM CICALINO : rem 

231 


{SIN} {SIN}"; :GOTO690 

: rem 

1 72 

1 001 

POKE36878 ,15: POKE36874 ,190 :rem 

206 

620 

GOTO 570 

: rem 

1 09 

1002 

FORW=l TO300 : NEXTW :rem 

1 1 7 

630 

IFA<48ORA>57THEN580 

: rem 

1 05 

1 003 

POKE368 78, 0 : POKE36874 , 0 : RETURN 


640 

PRINTA$ ; :N=N*1 O+A-48 

: rem 

1 06 


: rem 

74 

650 

IFN>255THENA=20 : GOSUBl 000: 

GOTO600 


2000 

REM CAMPANELLO :rem 

1 30 



: rem 

229 

2001 

FORW= 1 5TOOSTEP-1 : POKE36878 , W: POKE368 

660 

Z=Z+1 : IFZ<3THEN580 

: rem 

71 


76,240: NEXTW :rem 

22 

670 

IFZ=0THENGOSUBl 000:GOTO570 

: rem 

1 1 4 

2002 

POKE36876,0: RETURN :rem 

1 1 9 

680 

PRINT","; : RETURN 

: rem 

240 

3000 

PRINTC$ ; " {RVS } NON IN PAGINA ZERO 

O 


690 S%=PEEK (209) +256*PEEK (210) +PEEK ( 2 1 1) 

:rem 149 

692 F0RI=1T03:T=PEEK(S%-I) :rem 68 

695 IFT< >44ANDT< >58THENPOKES%- 1,32: NEXT 

:rem 205 

700 PRINTLEFT$ ( " { 3 SIN I- 1 );: RETURN 

: rem 7 

710 PRINT" {CLR} {RVS}*** SAVE *** 

{ 3 GIU' }" : rem 236 

720 INPUT" {GIU'} NOME DEL FILE";F$ 

:rem 199 

730 PRINT: PRINT" { 2 GIU ' } {RVS }N {OFF }ASTRO 
0 {RVS}D{OFF}lSCO: (N/D)" : rem 128 

740 GETA$ : I F A$ < > " N" AND A$ < >"D" THEN74 0 

:rem 30 

750 DV=1 -7* (A$ = "D" ) : IFDV= 8THENF$ = " 0 : " +F$ 

:rem 158 

760 T$=F$ : ZK=PEEK (53) +256*PEEK ( 54 ) -LEN (T$ 
) :POKE782,ZK/256 :rem 3 

762 POKE781 , ZK-PEEK ( 782 ) * 256 : POKE780 , LEN ( 

T$ ) : SYS65469 :rem 109 

763 POKE780 , 1 :POKE781 ,DV: POKE782 , 1 :SYS654 

66 :rem 69 

765 POKE254 , S/256 : POKE253 , S-PEEK ( 254 ) * 256 
: POKE780 , 253 :rem 12 


766 POKE782 ,E/256: POKE781 , E- PEEK (782) *256 
:SYS65496 :rem 124 


SPAZI }SU 


}" :GOTOl 000 
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Piccola guida per 
l’input 

dei programmi 


M olti dei programmi listati da SUPERCOMMODO- 
RE contengono particolari caratteri di controllo 
(controllo cursore, tasti colore, video-inverse, ecc.). 
Per rendere chiaro ciò che dev’essere battuto quando 
è necessario inserire uno dei suddetti caratteri sono 
state stabilite le seguenti convenzioni. 

Generalmente i listati contengono delle «parole» racchiu- 
se tra parentesi graffe { }; tali parole rappresentano 
particolari caratteri di controllo: { GlOj significa premere 
il simbolo del cursore verso il basso. { 5 SPAZI } vuol dire 
battere 5 volte la barra-spazio. 

Per indicare che un tasto dev’essere «shiftato», cioè 
premuto insieme al tasto SHIFT, nel listato il simbolo 
di questo tasto sarà sottolineato. 

Per esempio S significa che dev’essere premuto il tasto 
S mentre è abbassato il tasto SHIFT. 

La manovra farà apparire sullo schermo un piccolo 
«cuore». 

Trovando un simbolo sottolineato chiuso tra parentesi 
graffe (esempio { 10 N }) dovrà essere interpretato co- 
me «premere il carattere indicato per il numero di volte 
che lo precede nelle parentesi»: nel nostro esempio 
premere 10 volte il tasto N «shiftato». 

Se il tasto da premere è indicato tra le parentesi [{)], 
vuol dire che lo stesso dovrà essere premuto mentre 
è premuto il tasto «Commodore» (il tasto «Commodo- 
re» è quello posto nell’angolo in basso a sinistra). 

Se il tasto scritto tra [()] è preceduto da un numero, 
ciò significa che il tasto dev’essere premuto per il nu- 
mero di volte indicato. 


Raramente si potrà trovare un carattere alfabetico 
solitario racchiuso tra parentesi graffe. Tale carat- 
tere può essere battuto mentre è premuto il tasto 
CTRL. 

Ad esempio {A} sta ad indicare la sequenza CTRL-A. 
A proposito del «modo virgolette» è nota la possibilità 
di muovere il cursore sullo schermo con i tasti CRSR. 
Ogni tanto i programmatori desiderano muovere il cur- 
sore durante l’esecuzione del programma. E per que- 
sto motivo che nei programmi si troveranno dei { SIN }, 
jHOME} e {BLU}. 

L’unico modo perché il calcolatore distingua il coman- 
do diretto da quello inserito nel programma è il «modo 
virgolette». Premendo il tasto «virgolette» (tasti SHIFT 
2) il calcolatore si predispone appunto in «modo virgo- 
lette». 

Battendo un carattere qualsiasi, cercando poi di cor- 
reggerlo muovendo il cursore, si otterrà solo un trat- 
to verticale in un quadratino inverso. Questo è infat- 
ti il simbolo del cursore a sinistra nel «modo virgolette». 
L’unico comando di editing non utilizzabile all’interno 
di un programma è il DEL. Battendo nuovamente le 
«virgolette» il calcolatore lascia il «modo virgolette». Si 
può accedere al «modo virgolette» quando inserite spa- 
zi nella linea. 

In ogni caso, il sistema più semplice per uscire dal 
«modo virgolette» è quello di premere il tasto RE- 
TURN. 

Utilizzare la tabella che segue quando è necessario 
inserire comandi relativi al cursore e ai tasti colore. 


Quando leggete: Premete: Vedrete: 

{CLR } 

{HOME} 

{SU} 

{GIU' } 

{SIN} 

{DES} 

{ RVS } 

{OFF} 

{ BLK } 

{ WHT } 

{RED} 


Quando leggete: 

Premete: 

Vedrete: 

{CYN } 

farci w 

m 

{PUR} 

farci q 

m 

{ GRN } 

BEI D 

□ 

{BLU} 

Q 

Q 

{yel} 

EEJO 

sa 

[<1>] 

a o 

□ 

[<2>] 

□ O 

15 

[<3>] 

□ □ 

S 

[<4>] 

HO 

m 

[<5>] 

□ B 

E 

[<6>] 

□ O 

■1 


ITOTI 


lì CRSR ii 


lì CRSR \i 


felli Eff 

33 
Ed □ 
rnn q 


f3TCl Q 

f3TCl Q 


□ 

E 

II 

□ 

E 


m 


Quando leggete: 

[<7>] 

[ < 8 > ] 

{FI} 

{ F2 } 

{F3 } 

{ F4 } 

{ F5 } 

{ F6 } 

{ F7 } 

{ F8 } 


Premete: 

Vedrete: 

SO 

□ 

E 3 D 

■ ■ 
■ ■ 

R9 

■1 


a 

W 

s 

m 

e 

ne 

n 

CB 

SI 

XMA 

li 

OH 

■ 
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Anatomia di un foglio 
elettronico 




di S. Bateman 

Trad. e adatt. 

di F. Sarcina 


Il Foglio Elettronico, o Spread- 
sheet, ha rivoluzionato in questi 
ultimi anni il modo di trattare 
qualsiasi tipo di dato numerico. 
Sul mercato si trovano in gran 
numero questi strumenti potenti 
e flessibili, tra cui si può sceglie- 
re il più adatto alle proprie esi- 
genze. 


Un po’ di storia 

La nascita del primo foglio elettronico 
è considerata qualcosa di leggendario 
da coloro che utilizzano questo tipo di 
software, in grado di trasformare un 
computer in una sofisticata macchina 
da calcolo, capace persino di elaborare 
progetti finanziari. 

Nel 1978 Daniel Bricklin, un laureato 
del M.I.T. che si stava specializzando 
ad Harvard, voleva trovare un modo 
per evitare il quotidiano, lungo e noioso 
compito di riempire le pagine di un libro 
mastro con le entrate e le uscite duran- 
te un corso di finanza. Ogni cambiamen- 
to nelle cifre comportava naturalmente 
la necessità di calcolare (e scrivere) 
un’altra pagina di numeri. Gli errori 
avevano un effetto disastroso: una som- 
ma sbagliata voleva dire ricalcolare tut- 
to il foglio. Quanto sarebbe più facile, 
pensò Bricklin, se ci fosse una specie di 
“lavagna elettronica” su cui numeri e 
formule possano essere accuratamente 
scritti, cancellati e modificati! 
Lavorando con un amico, Bob Franck- 
ston programmatore al M.I.T. , Bricklin 
sviluppò a fondo questa idea, deciden- 
do infine di creare un libro mastro elet- 
tronico che potesse funzionare sul nuo- 
vo microcomputer Apple. Il prodotto fu 


battezzato “VisiCalc” (che stava per 
CALColo Visibile), e il successo fu im- 
mediato: in pochi mesi ne furono vendu- 
te centinaia di migliaia di copie. 

Nato per esaminare le situazioni reali, 


VisiCalc divenne presto uno strumento 
per analizzare delle ipotesi. Prima della 
nascita dei fogli elettronici gli uomini 
d’affari potevano considerare al massi- 
mo due o tre preventivi prima di opera- 
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re una scelta. Con la possibilità di rical- 
colo istantaneo offerta da VisiCalc, in- 
vece, era possibile analizzare di punto 
in bianco 20, 50 o più diverse prospetti- 
ve. Per un certo tempo questo strumen- 
to magico fu disponibile solo per il com- 
puter Apple, e c’è chi afferma che Visi- 
Calc fece vendere più Apple di qualsiasi 
altro prodotto software. 

Dopo VisiCalc sono stati commercializ- 
zati moltissimi altri fogli elettronici; tutti 
però restano fedeli al modello, semplice 
ma potente, ideato da Bricklin. 

In effetti nulla potrebbe essere più sem- 
plice. A prima vista uno spreadsheet 
appare come una griglia di caselle ret- 
tangolari. Una fila cfrnumeri scende ver- 
ticalmente lungo il lato sinistro dello 
schermo, e ogni numero identifica la ri- 
ga alla sua destra; le lettere dell’alfabe- 
to sono disposte lungo il lato superiore 
dello schermo, e corrispondono alle co- 
lonne sottostanti. Ogni casella (o cella, 
per usare il termine corretto) è quindi 
identificata dalle sue coordinate, come 
ad esempio “Colonna B, Riga 3” o, più 
semplicemente, B3. 

In questa matrice di celle è inserito un 
potente generatore di calcoli e formule 
matematiche, con la possibilità di defini- 
re qualsiasi relazione tra i contenuti del- 
le varie celle. Se cambiamo un valore 
in un calcolo o in una formula, il foglio 
elettronico può automaticamente rical- 
colare tutti i numeri che dipendono da 
quel valore. Con un po’ di pratica è 
possibile impostare e risolvere quasi 
ogni tipo di calcolo, e ciò si rivela parti- 
colarmente utile nella costruzione di 
modelli finanziari. Gli uomini d’affari 
possono elaborare le cifre riguardanti 
le vendite, compilare bilanci e sviluppa- 
re previsioni. 

Lo spreadsheet è uno strumento tal- 
mente veloce e flessibile che gli effetti 
a lungo termine del suo impatto con gli 
utenti di microcomputer non sono anco- 
ra calcolabili. Coloro che non hanno fa- 
miliarità con il foglio elettronico spesso 
stentano a comprendere quale possa 
essere la sua utilità, ma chi ha imparato 
a usare questo strumento non può non 
apprezzarlo per la sua semplicità e po- 
tenza. 

Nella maggior parte dei fogli elettronici 
sono visibili contemporaneamente sullo 
schermo solo una mezza dozzina di co- 
lonne e 12-15 righe. Ma in realtà uno 
spreadsheet può contenere migliaia di 
celle. E possibile spostarsi facilmente e 
velocemente sulla griglia elettronica 
premendo pochi tasti e, ciò che più con- 
ta, l’esecuzione dei calcoli e degli ag- 
giornamenti avviene istantaneamente. 
Per molti utenti di microcomputer impa- 
rare a trarre vantaggio dalla potenza di 
uno spreadsheet può essere difficile, 
specie per coloro che lo usano solo 
occasionalmente. Anche il più potente 
dei fogli elettronici richiede di essere 
virtualmente “programmato” da parte 
dell’utente. Potremmo dire che uno 
spreadsheet è un linguaggio di pro- 
grammazione specializzato nell’esecu- 


zione di calcoli. Se avete voglia di per- 
dere un po’ di tempo per imparare i 
suoi comandi, i risultati potranno essere 
stupefacenti. Tra l’altro, gli ultimi tipi 
di foglio elettronico messi in commercio 
sono più facili da usare e ugualmente 
potenti; e ciò è particolarmente vero 
per quanto riguarda gli home computer 
Commodore. 

Alcuni esempi 

Sebbene gli uomini d’affari usino lo 
spreadsheet principalmente per i bilan- 
ci e i calcoli finanziari, questo tipo di 
software non serve solo a contare soldi. 
Un foglio elettronico può essere utile in 
tutte le situazioni in cui è necessario 
“maneggiare” numeri. 

Mettiamo che giochiate a tennis e vo- 
gliate elaborare delle statistiche sul vo- 
stro rendimento. In primo luogo dovre- 
ste impostare i calcoli: ricavare i totali 
e le medie a partire dai dati di ogni 
partita (set e giochi vinti e persi, punti 
realizzati e subiti, palle di primo e se- 
condo servizio, doppi falli, aces, eccete- 
ra). Una volta memorizzate le etichette 
e i calcoli dovreste impostare i risultati 
di ogni incontro. 

Tutto questo potrebbe essere realizzato 
con carta e matita, naturalmente; usan- 
do uno spreadsheet, però, potrete ela- 
borare facilmente qualunque tipo di sta- 
tistica sui dati archiviati. Voi non dovete 
far altro che scrivere la formula, e il 
foglio elettronico fa tutto il lavoro. 

Uno spreadsheet può anche aiutare a 
prendere decisioni. Supponiamo che 
vogliate acquistare un’auto nuova e che 
abbiate ristretto la scelta a cinque o sei 
modelli. In base ai colloqui con i conces- 
sionari potreste calcolare il costo an- 
nuale a partire dal prezzo dell’auto, dal 
numero di rate e dall’interesse. Ma se 
un concessionario vi offre un maggiore 
sconto sul prezzo, o un interesse più 
basso? E se un modello consuma meno 
degli altri e voi prevedete di percorrere 
12.000 chilometri durante il prossimo 
anno? Cosa cambierebbe poi se i chilo- 
metri diventassero 15.000 o 20.000. 
Non è esagerato dire che un foglio elet- 
tronico può rendere molto più veloci i 
calcoli riguardanti tutte queste ipotesi, 
prescindendo dalla vostra abilità nel- 
l’uso di carta, penna e calcolatrice. 
Maggiore è il numero di calcoli da ese- 
guire, più apprezzerete la potenza di 
uno spreadsheet. 

Ma la vera forza di un foglio elettronico 
sta nella sua capacità di memorizzare e 
utilizzare formule di ogni tipo, da una 
semplice addizione a una complessa se- 
rie di calcoli matematici o scientifici. 
Un esempio classico di utilizzo dello 
spreadsheet è la gestione del bilancio 
familiare. Per ogni mese vengono visua- 
lizzate le spese divise per categorie, la 
spesa totale, le entrate e l’eventuale dif- 
ferenza sotto la voce “risparmi” (ad 
esempio). Si potrebbe sicuramente ese- 
guire tutti questi conti con una calcola- 
trice; tuttavia, un foglio elettronico può 
memorizzare tutte le formule che occor- 


rono e consente di effettuare facilmente 
qualsiasi variazione nel bilancio mensi- 
le, ottenendo istantaneamente i totali. I 
risultati possono venir stampati su car- 
ta, se necessario, e dozzine di altre op- 
zioni sono ottenibili con semplici coman- 
di. 

Con una calcolatrice potreste sommare 
le spese e le entrate, sottraendo poi la 
spesa totale dall’entrata totale per rica- 
vare la cifra da destinare ai risparmi o 
a qualunque altro tipo di investimento. 
Uno spreadsheet vi consente di memo- 
rizzare una volta per tutte le formule 
necessarie per ottenere i risultati desi- 
derati; ogni volta che modificate una 
voce di spesa, i totali vengono aggiorna- 
ti immediatamente. In pratica, quindi, 
se si cambia il contenuto di una cella, 
vengono automaticamente modificati i 
valori di tutte le celle che da essa dipen- 
dono. 

Qualcuno ha definito il foglio elettronico 
un “word processor numerico”: come 
un word processor, infatti, uno spread- 
sheet consente di muoversi all’interno 
di un documento, apportando ad esso 
delle modifiche immediatamente visibi- 
li. Combinazioni specifiche di comandi, 
impartiti tramite la tastiera, permettono 
di controllare il tipo di dati che si vuole 
inserire, di determinare dove tale inseri- 
mento va effettuato e di stabilire rela- 
zioni tra i dati. Facciamo un esempio 
pratico, descrivendo come potrebbero 
essere alcuni comandi di un foglio elet- 
tronico. Per muoversi all’interno del fo- 
glio è sufficiente premere un tasto- 
funzione, che fa apparire sullo schermo 
la scritta “GOTO:”. A questo punto bi- 
sogna digitare la colonna e la riga che 
identificano la cella a cui si vuole acce- 
dere (ad esempio F73), e premere RE- 
TURN. Supponiamo di avere a disposi- 
zione 26 colonne (tante quante le lette- 
re dell’alfabeto) con un massimo di 100 
righe; digitando Z99 in risposta a un 
GOTO, vi portate direttamente nell’ul- 
tima cella dello spreadsheet, quella in 
basso a destra (infatti Z identifica la ven- 
tiseiesima colonna). Battendo invece 
A0, tornate alla prima cella, quella in 
alto a sinistra. 

In ogni foglio elettronico le varie opzioni 
e funzioni speciali vengono ottenute in 
modo leggermente diverso, ma una vol- 
ta che avrete familiarizzato con uno, 
scoprirete che tutti gli altri spreadsheet 
che vi capiterà di usare contengono 
convenzioni molto simili. Vediamo anco- 
ra qualche esempio. 

Negli ultimi due anni la tendenza è stata 
quella di integrare lo spreadsheet con 
altre applicazioni, e principalmente con 
word processor, database e programmi 
grafici. Questo tipo di package integra- 
to può essere definito un “information 
processor”, cioè un elaboratore di infor- 
mazione (generica), essendo in grado di 
agire nei campi più disparati. Ne costi- 
tuisce un esempio “Lotus 1-2-3”, forse 
il più popolare spreadsheet integrato di- 
sponibile per i computer MS-DOS, co- 
me il PC IBM; “Lotus 1-2-3” utilizza fun- 
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zioni per formule avanzate, comandi 
per la gestione dei file e liste di esecu- 
zione (EXEC List); tutto ciò lo pone ben 
al di sopra di un semplice programma 
di calcolo. Esistono in commercio pro- 
grammi applicativi di questo tipo anche 
per i computer Commodore, come ad 
esempio il “VizaStar 64” per C64. Chia- 
ramente, per trarre pieno vantaggio 
dalla potenza di un package di queste 
dimensioni è necessario un certo perio- 
do di ^allenamento” nel suo uso. 

Molti tra coloro che utilizzano il compu- 
ter in casa, e non hanno quindi il proble- 
ma di gestire una contabilità vera e pro- 
pria, probabilmente desidererebbero 
godere dei benefici di uno spreadsheet 
senza tuttavia dover imparare a usare 
un programma troppo complesso. 

Molti nuovi package comprendono op- 
zioni che semplificano le procedure di 
calcolo e istruzioni dettagliate riguar- 
danti le varie operazioni. 

In genere vengono messe a disposizione 
dell’utente molte schermate di help, ri- 
chiamabili in qualsiasi momento senza 
perdere i dati su cui si sta lavorando, e 
una guida rapida che riassume tutti i co- 
mandi. 

Uno dei modi di rendere uno spread- 
sheet immediatamente utilizzabile an- 
che da coloro che non lavorano col com- 
puter tutti i giorni è quello di fornire dei 
“moduli”, cioè dei fogli preprogrammati 
per diverse applicazioni. In questo caso, 
oltre a poter lavorare su un foglio elet- 
tronico “in bianco”, l’utente può richia- 
mare uno dei moduli, che vanno sempli- 
cemente compilati e i cui argomenti 
principali potrebbero essere bilancio fa- 
miliare, pagamento rate, imposta sul 
reddito, busta paga, contabilità e altre 
comuni applicazioni. Questi moduli pos- 
sono essere utilizzati così come sono o, 
se lo si desidera, modificati secondo le 
proprie esigenze. 

Il significato dei numeri contenuti in uno 
spreadsheet diventa spesso più chiaro, 
se si ha la possibilità di tradurli in grafici 
e diagrammi. 

Alcuni fogli elettronici permettono di 
trasformare le cifre in barre, linee, punti 
e diagrammi a torta, e di stampare su 
carta queste rappresentazioni grafiche. 
Ciò si rivela particolarmente utile per 
coloro che desiderano mostrare veloce- 
mente ed in modo efficace risultati fi- 
nanziari e previsioni. 

Qualche consiglio 

Sebbene gli spreadsheet in commercio 
siano molto diversi tra loro per prezzo 
e prestazioni, ci sono alcune regole ge- 
nerali che vi consigliamo di seguire se 
decidete di acquistarne uno. Vediamo 
quali sono le domande che vi dovreste 
porre prima di effettuare la scelta. 

* E possibile muoversi facilmente all’in- 
terno del foglio? 

Il movimento del cursore o freccia che 
indica la cella a cui si può accedere do- 
vrebbe essere rapido e graduale. Do- 
vrebbe inoltre essere possibile raggiun- 



gere qualsiasi punto del foglio premen- 
do un paio di tasti. 

* La misura delle celle è regolabile, in 
modo da poter contenere numeri e/o 
testi più lunghi? 

Alcuni spreadsheet permettono di mo- 
dificare la grandezza di singole celle. 
Altri consentono invece di alterare an- 
che la misura di un gruppo di celle o 
dell’intero foglio. 

* È possibile modificare facilmente i dati 
memorizzati? 

Questo è un punto cruciale, in quanto 
la facilità di correzione degli errori e di 
modifica dei dati, allo scopo di esamina- 
re diverse eventualità, determina l’effi- 
cacia di uno spreadsheet. 

* Quanto tempo impiega il foglio elettro- 
nico a calcolare e ricalcolare gruppi di 
dati? 

Se prevedete di usare regolarmente 
uno spreadsheet, la cosa più frustrante 
che vi potrà capitare sarà dover atten- 
dere mentre il programma esegue un 
lento processo di ricalcolo o di riordina- 
mento dei dati. Ovviamente, questo 
problema non è importante, se il vostro 
utilizzo del foglio elettronico è occasio- 
nale o di portata limitata. Alcuni 
spreadsheet mettono a disposizione del- 
l’utente un maggior numero di celle, 
scaricando su disco parte del foglio, e 
richiamano o salvano le varie sezioni 
durante l’elaborazione. Questo tipo di 
foglio elettronico sarà più lento nell’ese- 
guire calcoli complessi rispetto a un 
programma le cui celle si trovano tutte 
contemporaneamente nella RAM del 
computer. Gli spreadsheet che lavora- 
no interamente in memoria sono più ve- 
loci, ma forniscono all’utente un minor 
numero di celle. 

* Quali sono le vostre esigenze di stam- 
pa? 

Per un foglio elettronico la stampa su 
carta è altrettanto importante che per 
un word processor. Innanzitutto lo 
spreadsheet deve essere compatibile 
con la vostra stampante. Se avete esi- 
genze particolari, ad esempio richiedete 
tabulazioni regolabili o avete necessità 
di stampare grafici, allora assicuratevi 
che il package che volete acquistare 
faccia al caso vostro. 

* Avete necessità di inviare per telefono 
le informazioni del foglio elettronico? 
Alcuni programmi consentono di tra- 
smettere telefonicamente, usando un 
modem, le informazioni a un altro com- 
puter. In questo caso è necessario assi- 
curarsi che i file creati dallo spread- 


sheet siano compatibili con quelli utiliz- 
zati dal computer che si trova all’altro 
capo del filo. Per molti uomini d’affari 
questa opzione è necessaria, mentre in 
genere non riguarda coloro che usano 
il computer in casa. 

* Quali sono le funzioni di calcolo offerte 
dal programma? 

Per la maggior parte degli utenti, spe- 
cialmente quelli domestici, sono suffi- 
cienti le quattro operazioni, alle quali in 
genere si aggiungono altre funzioni, co- 
me media, elevamento a potenza, radi- 
ce quadrata, percentuale, operatori lo- 
gici (maggiore, minore, eccetera), mas- 
simo e minimo in un insieme di numeri. 

* Di quante celle avete bisogno? 

Il fabbisogno di un utente domestico è 
in genere molto inferiore a quello di un 
uomo d’affari, per il quale probabilmen- 
te un foglio elettronico con poche mi- 
gliaia di celle, più che sufficienti per un 
bilancio familiare, sarebbe troppo pic- 
colo. Lo spazio disponibile varia molto 
da programma a programma, ma in ge- 
nere le case produttrici indicano chiara- 
mente le dimensioni del foglio sia nella 
pubblicità che sulle confezioni. 

* Avete necessità di osservare contem- 
poraneamente parti diverse del foglio? 
Alcuni spreadsheet offrono la possibili- 
tà di aprire “finestre” o comunque divi- 
dere lo schermo in due o più parti, pro- 
prio allo scopo di osservare nello stesso 
tempo zone diverse del foglio elettroni- 
co. 

In conclusione, il nostro consiglio è quel- 
lo di collaudare presso un negozio, o a 
casa di un amico che lo possiede, lo 
spreadsheet che volete acquistare. Un 
foglio elettronico adatto alle vostre esi- 
genze può essere uno strumento prezio- 
so ed efficace, ma se lo scegliete a caso, 
potrebbe rivelarsi invece una fonte di 
frustrazione. 
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La musica sul VIC 20 


di D. Carmichael 

trad. e adatt. 

di M. Anticoli 



Questo articolo tratta le fonda- 
menta del suono del VIC 20, 
esplorando il chip VIC e dando 
una rappresentazione in BASIC 
di suono e musica. 


G li effetti sonori e la musica possono 
aggiungere un qualcosa in più ai 
programmi; pensate, per esempio, di 


passare il tempo con un gioco spaziale 
senza effetti sonori tipo laser o esplosio- 
ni! Mancherebbe proprio il qualcosa in 
più appena accennato. 

Nelle applicazioni commerciali un suo- 
no tipo “cicalino” può avvertire un uten- 
te dell’errata immissione di un dato; 
senza un suono di avvertimento si può 
incorrere in gravi errori. 

L’utente può “comunicare” con il chip 


sonoro del VIC 20 mediante le locazioni 
di memoria a partire da 36864 fino a 
36879, che sono responsabili del con- 
trollo del video e dell’audio. 
Specificamente, le locazioni di memoria 
da 36874 a 36879 controllano il suono: 
eseguendo una poke in queste locazio- 
ni, con vari valori, si possono produrre 
infinite combinazioni di suono e musi- 
ca. 
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Eseguire pol&e con diversi valo- 
ri 

Il VIC 20 possiede tre separati genera- 
tori di tono, un generatore di rumore 
bianco e un controllo al volume. 
Ciascun generatore di tono produce 
una serie di tre ottave e queste ultime 
producono insieme un’altra serie di cin- 
que ottave. 

Per fare musica con il VIC 20 prima di 
tutto occorre eseguire una poke al con- 
trollo del volume, e poi una poke con 
valore tra 128 e 255 in uno dei quattro 
generatori di suono, quest’ultimi chia- 
mati anche “voci”. 

Eseguendo in un generatore di tono una 
poke con il valore al disotto di 128 (0- 
127) non verrà prodotto alcun suono. 
Questa tecnica può essere usata per 
“smorzare” un generatore di tono senza 
spegnere il volume. 

Il volume controlla gli effetti di tutti i 
generatori di tono, compreso quello di 
rumore bianco. 

Si può settare il volume fra valori da 0 
a 15, dove 15 rappresenta il massi- 
mo. 

La tabellina che segue mostra le loca- 
zioni di memoria che controllano il suo- 
no e cosa esse fanno. 


Locazione Voce e tipo 

Valori 

Tono 

36874 

1 tono 

128-255 

basso 

36875 

2 tono 

128-255 

medio 

36876 

3 tono 

128-255 

alto 

36877 

rumore 




bianco 

128-255 

rumore 

36878 

volume 

0-15 

- 


Adesso che conosciamo tutte le 
informazioni BASIC, proviamo a fare 
qualche esperimento. 

Assicuratevi prima di tutto che il 
volume del monitor o televisione sia 
alto. 

Se usate un monitor, assicuratevi che 
tutti i collegamenti audio siano a posto. 
Si provi ad immettere POKE 36878,15 
e premere il tasto RETURN. 

Questa poke mette il volume al 
massimo, ma ancora non si sentirà 
nulla, poiché abbiamo solamente 
“acceso” il volume del VIC 20. 
Immettendo POKE 36874,128 si udirà 
un tono molto basso, perché il valore 
nella POKE è basso (128) e perché 
abbiamo usato il generatore sonoro più 
basso (36874). 

Se si tenta di eseguire una poke con un 
valore più basso di 128, nessun suono 
verrà prodotto; si provi quindi POKE 
36874,127 in ogni voce. 

Adesso premete contemporaneamente 
RUN/STOP e RESTORE: questo 
resetta il chip VIC, mettendo a zero 
tutti i generatori sonori e il volume. 

Combinazioni di suono 

Quando si produce suono sul VIC 20 
non si è limitati a usare una voce alla 
volta; questo significa che è possibile 
accendere simultaneamente due o tutte 
e tre le voci. 


Adesso proviamo ad accendere le voci 
una alla volta. 

1) Accendere il volume con POKE 
36878,15 

2) POKE 36874,130 accende la voce 
uno e produce un suono molto basso. 

3) POKE 36875,175 accende la voce 
due e produce un suono medio; ora è 
possibile sentire entrambe le voci nello 
stesso tempo. 

4) POKE 36876,240 accende la terza 
voce e produce un suono più alto degli 
altri due. 

Si possono produrre molti effetti inte- 
ressanti, usando tutte e tre le voci simul- 
taneamente. 

Per smorzare tutte le voci premere 
RUN/STOP e RESTORE oppure met- 
tere il volume a zero (POKE 36878,0); 
le voci contengono ancora i valori di 
prima, ma non sono più udibili. 

Quando si lavora con il suono non si è 
limitati a produrre mono-note. La fre- 
quenza (valore della nota) del suono 
può variare; si provi ad introdurre que- 
sto breve programma: 

10 POKE 36878 , 1 5 

20 FORA* 1 28T0254 : POKE 36876, A:NEXT 
30 FORA* 254T0 1 2 7STEP- 1 : POKE 368 76 , A : NEXT 

A differenza delle tre voci, che produco- 
no toni musicali, il generatore di rumore 
bianco produce un “fischio”. 

Per esempio, si provi: 

POKE36878,15:POKE36877,240 

Si udirà un “fischio” molto alto, cono- 
sciuto come “rumore bianco”. 

11 generatore di rumore bianco funziona 
come le altre tre voci (accendere volu- 
me, con valore della POKE fra 128 e 
255). 

Il rumore bianco può essere usato per 
produrre suoni come esplosioni o par- 
tenze di jet. 

Ecco qui sotto una dimostrazione di una 
esplosione. 

5 POKE36878 , 1 5 

10 F0RA=254T021 0STEP- 1 : POKE368 76 , A: FORT»! TO20 : NEXTT : NEXTA 
30 POKE36876.0 

40 POKE36877 ,150: FORT*lTO500 : NEXTT 

50 FORA»! 5TOOSTEP- 1 : POKE36878 , A: FORT-1 TOI 50 : NEXTT: NEXTA 

Nel manuale d’istruzione del VIC 20 
troviamo da pagina 136 fino a pagina 
138 delle piccole dimostrazioni: alcune 
di esse, come il suono del telefono e le 
onde del mare, sono fatte molto bene. 
Studiando le tecniche usate in queste 
dimostrazioni si può imparare di più sul 
suono del VIC 20. 


Programmare note musicali 

Qui sotto riportiamo una tabella di note 
musicali e il loro valore (frequenza): 


DO 

131 


SOL 

214 


DO# 

140 


SOL# 216 


RE 

145 


LA 

218 

219 

RE# 

151 


LA# 

220 

221 

MI 

158 


SI 

222 

223 

FA 

161 

162 

DO 

224 


FA# 

166 

167 

DO# 

226 


SOL 

173 

174 

RE 

227 

228 

SOL# 

178 


RE# 

229 


LA 

181 

182 

MI 

231 


LA# 

185 

186 

FA 

232 



SI 

189 

190 

FA# 

233 

DO 

192 

193 

SOL 

234 

DO# 

197 


SOL# 235 

RE 

200 


LA 

236 

RE# 

203 


LA# 

237 

MI 

206 

207 

SI 

238 

FA 

208 

209 

DO 

239 

FA# 

211 

212 

DO# 

240 


Si può notare che molte note hanno un 
valore e altre ne hanno due. 

In molti casi si possono produrre piace- 
voli e accurate musichette sul VIC 20, 
usando una tecnica di due note chiama- 
ta “merge”. 

Questa tecnica consiste nell’ alternare 
in una voce due valori; per esempio, 
per produrre un SOL (valori 173 e 174) 
per primo si “accende il volume” poi si 
esegue la poke della voce desiderata 
con il valore di 173, poi con il valore di 
174, ancora 173 e così via. 

Questo alternarsi di due valori per nota 
in una voce serve per correggere le no- 
te che sono leggermente diesate. 

Qui sotto mostriamo un esempio: 

10 POKE36878,! 5:S3=36876 

20 READ A , B , T: IFA=999THENPOKE36878 , 0 : END 

30 FORZ= 1 TOT 

40 POKES 3 , A : POKES 3 , B : NEXT 
50 GOTO 20 

60 DATA224, 224, 100, 239, 240, 50, 2 18, 2 19, 50 
70 DATA21 4,21 4, 50,206,207,50,21 4, 21 4, 1 50 
80 DATA 20 0 , 200, 1 50,999,999,999 


In questo programmino sia il valore del- 
la nota (frequenza) che quello del tem- 
po sono letti da una istruzione READ 
(A,B e T). 

Il valore delle note (A e B) sono eseguiti 
nella voce alta (S3=36876) e il valore 
del tempo (T) è usato per un ciclo FOR/ 
NEXT; il programma si ferma quando 
viene letto il valore 999. 

Un suggerimento per 
programmare 

Essendo il VIC 20 dotato di poca me- 
moria, le varie poke in un programma 
possono portar via byte importanti. 

Il consiglio utile che vi diamo è quello 
di settare all’inizio di un vostro pro- 
gramma le voci e il volume sotto forma 
di variabile, per esempio: 

10 S1=36874:S2=36875:S3=36876: 
S4=36877:V=36878 

Nell’esempio mostrato sopra le variabili 
S1,S2,S3,S4 sono le voci e la variabile 
V è il volume. 

Adesso per accendere il volume si do- 
vrà fare POKE V,15 oppure per far 
suonare una nota nella voce due esegui- 
re POKE S2,200. 

Questo suggerimento non solo “salva” 
la memoria, ma semplifica anche la logi- 
ca del programma. 

Con le tecniche soprascritte speriamo 
che ogni vostro programma musicale 
sia una sinfonia. 
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Vie 20: 

le locazioni-chiave 



di D. Carmichael 

trad. e adatt. 

di F. Sarcina 


Diamo tra 'occhiata ad alcune 
delle più utili locazioni di memo- 
ria del VIC: vediamo come usarle 
e impariamo qualcosa di nuovo 
sul funzionamento del nostro 
computer. 


L a “Guida di Riferimento” del VIC 20 
elenca più di tre pagine di locazioni 
di memoria utili. Sfortunatamente, ben 
poco viene detto su come il VIC usa tali 
locazioni e su come si possa utilizzarle 
nei propri programmi. 

Proviamo allora a esplorarne alcune, 
cercando di diradare il mistero che le 
circonda e scoprire nuove tecniche di 
programmazione. 

Locazioni 43-44 (esadecimale 
$2B-$2C): inizio del BASIC 

Questi due byte puntano all’inizio della 
memoria riservata ai programmi BA- 
SIC. L’indirizzo è memorizzato nel for- 
mato byte basso/byte alto (vedi il pa- 
ragrafo “Memorizzazione dei numeri”). 
Se modifichiamo con delle istruzioni 
POKE il contenuto di queste locazioni, 
possiamo spostare l’inizio della memo- 
ria BASIC in un’altra zona della RAM. 
In circostanze normali ciò non è neces- 
sario: quando si carica un programma 
da nastro o da disco, esso viene auto- 
maticamente “rilocato”, in modo che il 
caricamento avvenga a partire dall’ini- 
zio del BASIC, anche se il programma 
in questione era stato salvato da un’al- 
tra area di memoria. 

Chiariamo le idee con un esempio: un 
programma BASIC viene salvato da un 
VIC inespanso, nel quale il BASIC inizia 
normalmente dalla locazione 4097. Col- 
legando al VIC una espansione da 8K 
o più, l’inizio del BASIC si sposta in 
4609 . Se ora carichiamo il programma 
nel VIC espanso tramite un comando 
LOAD “nome”,np (dove np, numero 


periferica, vale 1 per il nastro e 8 per 
il disco), il caricamento avviene a parti- 
re dall’attuale inizio del BASIC, cioè 
4609, anche se il programma era stato 
salvato da 4097. 

Ciò avviene poiché LOAD“nome”,np 
effettua un caricamento rilocabile, cioè 
carica un programma sempre a partire 
dall’inizio del BASIC. L’unica eccezione 
è costituita dai programmi salvati su na- 
stro con Un comando SAVE“nome”,l,l 


(si tratta di un salvataggio non rilo- 
cabile, possibile solo su nastro e non su 
disco). Usando invece il comando 
LOAD“nome”,np,l effettuiamo un cari- 
camento non rilocabile, che carica cioè 
un programma nella stessa area di me- 
moria da cui era stato salvato. Quest’ul- 
tima procedura viene usata principal- 
mente per i programmi in linguaggio 
macchina. 

Tuttavia, ci sono casi in cui diviene ne- 
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cessano spostare l’inizio del BASIC. Ciò 
avviene ad esempio se vogliamo ripro- 
grammare i caratteri in un VIC con 8K 

0 più d’espansione. Dato che il chip 
VIC, il circuito logico che legge il gene- 
ratore di caratteri, non riesce a “vede- 
re” ciò che si trova nelle espansioni di 
memoria, non è possibile memorizzare 

1 caratteri ridefiniti nell’ultima parte del- 
la RAM BASIC, come invece faremmo 
in un VIC inespanso. I caratteri vanno 
quindi sistemati da qualche parte nel- 
l’area che va da 4096 a 8192, cioè nella 
RAM “inespansa”; dobbiamo inoltre fa- 
re in modo che essi non si mescolino al 
nostro programma BASIC, che normal- 
mente risiede nella stessa zona. 

In questa circostanza abbiamo bisogno 
di spostare “in avanti” l’inizio del BA- 
SIC (aumentare cioè il suo indirizzo) per 
far posto ai caratteri ridefiniti. Se fac- 
ciamo iniziare l’area BASIC da 5633 
anziché 4609, ricaviamo 512 byte per 
i caratteri a partire dalla locazione 
5120. Per farlo è sufficiente digitare 

POKE 44,22:POKE 5632,0:NEW 

Ogni volta che aumentiamo di uno il 
contenuto della locazione 44 spostiamo 
l’inizio del BASIC in avanti di una “pagi- 
na” (256 byte). 

Quando invece aumentiamo di uno il 
contenuto della locazione 43, lo spostia- 
mo in avanti di un byte. 

Quando muoviamo l’area BASIC, è me- 
glio che non vi sia in memoria un pro- 
gramma BASIC: esso verrebbe danneg- 
giato e sarebbe difficile riuscire a recu- 
perarlo. 

Se un nostro programma BASIC fa uso 
di una routine in linguaggio macchina, 
può essere conveniente spostare in 
avanti l’area BASIC: in tal modo dispor- 
remo di una zona di memoria “protetta” 
in cui memorizzare il linguaggio macchi- 
na. 

Ecco un breve programma che sposta 
l’inizio del BASIC in avanti fino a un 
massimo di dieci pagine (2.560 byte). 
Digitatelo, salvatelo e provate a lanciar- 
lo; inserite, quando vi viene chiesto, il 
numero di pagine di cui volete spostare 
il BASIC (1-10). Il programma visualiz- 
za sullo schermo le POKE necessarie e 
un comando NEW ed esegue il tutto 
forzando un RETURN nel buffer di ta- 
stiera. In tal modo il VIC resta con la 
memoria BASIC libera e spostata nel 
punto desiderato, in modo che possiate 
caricare o digitare un programma rilo- 
cato. 


10 PRINT CHR$(147)“SPOSTA BA- 
SIC IN AVANTI”:PRINT“QUANTE- 
PAGINE (1-1Ó)” 

20 INPUT PG:IF PG<1 OR PG>10 
THEN 10 

30 N=PEEK(44)+PG 
40 PRINT CHR$(147)“POKE 44, “N”: 
POKE (256*“N”+PEEK(43))-1,0: 
NEW” 

50 POKE 631,147:POKE 632,13: 

POKE 198,2 


Locazioni 45-46 ($2D-$2E): 
fine del programma BASIC / ini- 
zio delle variabili 

Queste locazioni puntano al byte suc- 
cessivo alla fine del programma BASIC 
correntemente in memoria. 

Durante l’esecuzione di un programma 
l’interprete BASIC memorizza tutte le 
variabili (tranne i vettori) a partire da 
questo indirizzo. Le locazioni 45-46 co- 
stituiscono quindi un puntatore, che 
consente di trovare la fine di un pro- 
gramma BASIC (a tale scopo possono 
servire anche le locazioni 174-175). 

Locazioni 55-56 ($37-$38): fine 
della RAM libera 

Questo puntatore si contrappone alle 
locazioni 43-44, che indicavano l’inizio 
della RAM BASIC: esso infatti segnala 
il termine della RAM libera, vale a dire 
la fine della memoria BASIC disponibile 
per l’utente. 

Se pensiamo alla memoria come a un 
campo di calcio, le locazioni 43-44 pun- 
tano all’inizio della memoria (la nostra 
linea di fondo campo), mentre le loca- 
zioni 55-56 puntano alla fine della me- 
moria (la linea di fondo campo oppo- 
sta). Un programma BASIC risiede al- 
l’inizio della memoria e le variabili ven- 
gono memorizzate subito dopo; questo 
è il motivo per cui le variabili vanno 
perdute ogni volta che aggiungiamo, 
cancelliamo o modifichiamo una linea 
BASIC. Al termine delle variabili trovia- 
mo i vettori (array) a una o più dimen- 
sioni. Le variabili-stringa dinamiche, in- 
vece, partono dalla fine della memoria 
e si estendono all’indietro (le stringhe 
dinamiche sono quelle che devono veni- 
re valutate, come A$ in A$=A$+B$, 
A$=CHR$(65) oppure INPUT A$). Lo 
spazio che resta tra la fine dei vettori e 
l’inizio delle stringhe è considerato me- 
moria libera. Quando il puntatore di fi- 
ne dei vettori (49-50) incontra il punta- 
tore di inizio delle stringhe (51-52), allo- 
ra otteniamo un errore OUT OF ME- 
MORY (memoria esaurita). 

Se memorizziamo valori più bassi nelle 
locazioni 55-56, possiamo “abbassare” 
la fine della RAM, ricavando spazio libe- 
ro per caratteri ridefiniti (nel VIC ine- 
spanso) o per routine in linguaggio mac- 
china. 

Ogni volta che diminuiamo di uno il con- 
tenuto della locazione 56 la fine della 
memoria si sposta all’indietro di una pa- 
gina (256 byte). 

Diminuendo di uno il contenuto della 
locazione 55, spostiamo invece la fine 
della RAM di un byte. La memoria è 
sempre là, ma abbiamo fatto credere 
all’interprete BASIC che non è più di- 
sponibile per lui. Se vogliamo abbassare 
la fine della RAM, dobbiamo farlo pri- 
ma di definire variabili-stringa; in caso 
contrario rischiamo di perderle tutte. 
Accendendo un VIC inespanso e digi- 
tando 

PRINT PEEK(55)+256*PEEK(56) 
otteniamo il valore 7680, che è l’indiriz- 


zo in cui termina la memoria BASIC. Se 
ora battiamo 

POKE 56,PEEK(56) - 1 : CLR 

(il comando CLR cancella le variabili ed 
è necessario ogni volta che si modifica 
il puntatore di fine memoria), e subito 
dopo reinseriamo la linea precedente, 
otterremo il valore 7424. Decremen- 
tando il contenuto della locazione 56, 
abbiamo spostato la fine della RAM. I 
256 byte tra 7424 e 7680 sono ora una 
zona libera in cui memorizzare linguag- 
gio macchina o caratteri ridefiniti. 

Ecco un altro programmino che sposta 
la fine del BASIC all’indietro fino a un 
massimo di dieci pagine. Inserite, quan- 
do vi viene chiesto, il numero di pagine 
di cui volete spostare il termine della 
RAM. Il programma esegue lo sposta- 
mento richiesto e lascia il VIC pronto 
per l’uso. 

10 PRINT CHR$(147) “SPOSTA BA- 
SIC INDIETRO”:PRINT“QUANTE 
PAGINE (1-10)” 

20 INPUT N:IF N <1 OR N>10 
THEN 10 

30 POKE 56,PEEK(56)-N:CLR 

Locazioni 67-68 ($43-$44): pun- 
tatore dell'informazione prove- 
niente da INPUT/GET/READ 

Questi due byte puntano all’informazio- 
ne inserita nel computer usando le istru- 
zioni INPUT, GET e READ. Nel caso di 
INPUT e GET essi puntano al “buffer 
di input BASIC”; se invece si esegue 
una READ, puntano alla zona di memo- 
ria contenente l’istruzione DATA. 

11 buffer di input BASIC è un’area di 
memoria che va dalla locazione 512 alla 
600. Esso comprende quindi 89 byte, 
corrispondenti agli 88 caratteri che co- 
stituiscono la lunghezza massima di una 
linea BASIC, o di una stringa digitata 
in seguito a una istruzione INPUT (il 
byte in più viene usato per segnalare la 
fine dell’input). Quando usiamo una 
istruzione INPUT in un programma BA- 
SIC, l’informazione digitata viene tem- 
poraneamente memorizzata in questo 
buffer fino a che viene premuto il tasto 
RETURN. Le locazioni 67-68 punteran- 
no allora al byte successivo all’ultimo 
carattere inserito nel buffer. Come 
esempio, digitate il seguente program- 
ma: 

10 PRINT CHR$(147)“DIGITA UNA 
STRINGA” :INPUT C$ 

20 PRINT:PRINT“PUNTATORE BUF- 
FER =”PEEK(67)+256*PEEK(68) 


Lanciate il programma, e quando vi vie- 
ne richiesta una stringa digitate la lette- 
ra A e premete RETURN. Come potete 
vedere, ora il valore del puntatore è 
513. Il codice del carattere A è stato 
posto nel primo byte del buffer di input 
(512), e di conseguenza il puntatore è 
stato incrementato di uno. Diamo nuo- 
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vamente il RUN, e questa volta digitia- 
mo ABCDEFGHIJ: il valore del punta- 
tore sarà 522, che indica quindi l’undi- 
cesimo byte del buffer (nei primi dieci, 
infatti, è stata memorizzata la nostra 
stringa). 

Quando si usa l’istruzione READ, il pun- 
tatore funziona in modo analogo: esso 
indica il byte successivo all’ultimo dato 
letto all’interno di un’istruzione DATA. 
Tale byte può contenere il valore zero 
(l’interprete BASIC usa uno zero per 
separare le linee di programma in me- 
moria) oppure il codice del carattere 
virgola (che separa i dati compresi nel- 
l’istruzione, come nel caso DATA 10, 
25, 18). Digitate il seguente programma 
sul V1C inespanso appena acceso: 

10 PR1NT CHR$(147) 

20 READ A$ 

30 IF A$ < > “FINE DATI” THEN 
PRINT A$:GOTO 20 
40 PRINT :PRINT“ULTIMO DATO 

=”PEEK(67)+256*PEEK(68) 

50 DATA GIANNI 
60 DATA GIORGIO 
70 DATA FINE DATI 

Lanciando il programma, otterrete il va- 
lore 4233 (o un numero molto simile, 
se avete inserito gli spazi nel listato in 
modo diverso da noi). 

Questo è il contenuto del puntatore, 
che corrisponde al byte successivo al- 
l’ultimo carattere dell’istruzione DATA 
alla linea 70. 

Questo puntatore può essere utile per 
controllare l’inserimento di dati nel 
computer, sia che questo avvenga tra- 
mite la tastiera sia che avvenga per 
mezzo di istruzioni READ. 

Ad esempio, potremmo avere un pro- 
gramma in cui desideriamo che l’utente 
inserisca un numero composto al massi- 
mo da 10 cifre. Il modo più semplice 
per controllare la lunghezza del numero 
è quello di utilizzare le funzioni-stringa. 
Provate infatti a digitare la seguente li- 
nea: 

A=123:PRINT LEN (STR$(A)) - 1 

Come potete vedere, la variabile nume- 
rica A viene convertita in una stringa, 
di cui viene stampata la lunghezza dimi- 
nuita di uno (ciò perché il primo caratte- 
re della stringa è un meno per i numeri 
negativi o uno spazio per i positivi). In 
questo caso ricaviamo il valore 3, che 
è corretto. 

Tuttavia, i numeri composti da 10 o più 
cifre presentano un problema, in quan- 
to il VIC li converte automaticamente 
in notazione esponenziale. 

Per esempio digitiamo: 

A=1234567890 : PRINT A 

11 risultato che otteniamo è 
1.23456789E+09 (che significa 
1.23456789 moltiplicato per 10 alla 
nona potenza). Questo non ci consente 
di usare il procedimento stringa/ 
lunghezza introdotto precedentemente, 
in quanto ricaveremmo in questo caso 


il valore 14: l’interprete BASIC conside- 
ra infatti il punto decimale, la E e l’espo- 
nente come parte della stringa. 

E qui che il nostro puntatore entra in 
scena: utilizzando un’istruzione INPUT 
e leggendo il contenuto delle locazioni 
67-68, possiamo determinare la lun- 
ghezza della stringa digitata fino a un 
massimo di 88 caratteri. Ecco un pro- 
gramma che permette all’utente di im- 
postare un numero lungo da una a dieci 
cifre: 

10 PRINT CHR$ (147) “IMPOSTA 
UN NUMERO,” 

20 PRINT“AL MASSIMO 10 CIFRE 
,”:PRINT“SENZA PUNTO DECI- 
MALE.” 

30 INPUT A 

40 IF PEEK (67) + 256TEEK (68) 
>522 THEN 10 
50 PRINT A 

Se lanciamo il programma e digitiamo 
1234567890, il numero viene accetta- 
to, in quanto la sua lunghezza è di 10 
cifre, anche se la sua memorizzazione 
avviene in notazione esponenziale. Se 
diamo nuovamente il RUN e battiamo 
12345678901, il programma lo rifiuta: 
tale numero è infatti composto da 11 
cifre. Il test che controlla la validità del- 
l’input si trova alla linea 40: se il punta- 
tore supera la locazione 522 (cioè 10 
byte dopo l’inizio del buffer, situato in 
512), significa che la stringa digitata è 
più lunga di 10 caratteri; in tal caso il 
numero viene rifiutato. 

Locazioni 139-143 ($8B-$8F): 
valore del seme “random” 

Questi cinque byte costituiscono la radi- 
ce (o “seme”) della funzione RND del 
BASIC. Quando usiamo questa funzio- 
ne in un programma BASIC, tali byte 
vengono moltiplicati, sommati e mani- 
polati in vari modi allo scopo di genera- 
re un numero “random”, cioè casuale. 
L’uso della funzione RND è quindi limi- 
tato ai programmi BASIC. 

Tuttavia, se scriviamo un programma 
in linguaggio macchina, possiamo usare 

11 seme random per produrre un nume- 
ro casuale senza dover restituire il con- 
trollo al BASIC ed eseguire la funzione 
RND. Per farlo si utilizza un’istruzione 
JSR $E094, si chiama cioè la subrouti- 
ne che inizia alla locazione $E094 
(57492 decimale). Tale subroutine del 
sistema operativo Kernal provvede ap- 
punto alla manipolazione del seme ran- 
dom; dopo l’esecuzione del JSR i cin- 
que byte contengono valori pseudo- 
casuali. La locazione più indicata per 
prelevare un numero casuale (compre- 
so tra 0 e 255) è comunque la 143. 

Locazione 144 ($90): byte di 
stato (ST) 

Questa locazione corrisponde alla varia- 
bile riservata ST (stato) del BASIC. 
Quando apriamo o chiudiamo canali, 
oppure eseguiamo operazioni di input/ 
output, questo byte indica lo stato finale 
dell’operazione. 


Come il seme random, questa locazione 
ha uso limitato in BASIC, dove possia- 
mo usare la variabile ST. Ma in linguag- 
gio macchina questo byte è l’unico mo- 
do per controllare .lo stato delle opera- 
zioni di input/output. 

Tali operazioni agiscono sui vari bit del- 
la locazione 144, che normalmente so- 
no a 0, facendo loro assumere il valore 
1. Vediamo in dettaglio quale significa- 
to hanno i bit “accesi”: 

Cassetta: 

Bit 2 = Blocco corto 

Bit 3 = Blocco lungo 

Bit 4 = Errore irrecuperabile 

(in lettura) 

Bit 5 = Errore di checksum 

Bit 6 = Fine file 

Bit 7 = Fine nastro 

Bus Seriale: 

Bit 0 = Fine tempo (in lettura) 

Bit 1 = Fine tempo (in scrittura) 

Bit 6 = Fine input 

Bit 7 = Dispositivo non presente 


Controllare la locazione 144 può essere 
molto utile, se vogliamo leggere un file 
di lunghezza sconosciuta da nastro o da 
disco. Dopo aver aperto il file leggiamo 
i byte uno per volta tramite un’istruzio- 
ne GET # , eseguendo dopo ogni lettura 
il seguente test, dove n è il numero del 
file: 

IF PEEK (144) = 64 THEN CLOSE 
n:END 

oppure l’equivalente 

IF ST=64 THEN CLOSE n:END 

Quando il bit 6 vale 1 (e quindi la loca- 
zione 144 assume il valore 64, cioè 2 
alla sesta), allora abbiamo raggiunto la 
fine del file e possiamo chiuderlo. 

Memorizzazione dei numeri 

Molti dei puntatori di cui si parla in que- 
sto articolo sono coppie di byte che con- 
tengono numeri nel formato byte bas- 
so/byte alto. Quasi tutti i microcompu- 
ter usano tale formato per memorizzare 
numeri più grandi di 255, e quindi non 
contenibili in un solo byte. In particolare 
non sarà sufficiente un byte per conte- 
nere l’indirizzo di una delle 65536 loca- 
zioni di memoria a cui può accedere il 
microprocessore 6502, che costituisce 
il “cervello” del VIC 20. 

Il formato byte basso/byte alto consen- 
te appunto di immagazzinare numeri 
compresi tra 0 e 65535. Il byte basso 
si trova per primo e contiene gli 8 bit 
meno significativi del numero (0-7); il 
byte alto contiene invece gli 8 bit più 
significativi (8-15). 

Se vogliamo memorizzare un certo nu- 
mero in un puntatore, per ottenere il 
valore da assegnare al byte alto dobbia- 
mo dividere il numero per 256 e pren- 
dere la parte intera del risultato; nel 
byte basso va memorizzato il resto della 
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divisione. Per assegnare a una variabile 
il contenuto di un puntatore bisogna in- 
vece usare la formula N=BB+256*BA: 
N è la variabile, BA e BB sono il byte 
alto e il byte basso. 

Proviamo infatti a stampare il contenu- 
to del puntatore 43-44 (inizio del BA- 
SIC): 

PRINT PEEK (43) + 256TEEK (44) 

Il risultato sarà 4097 su un VIC ine- 
spanso e 4609 se abbiamo un’espansio- 
ne da 8K o più. 

Come esercizio, spostiamo l’inizio del 
BASIC alla locazione 7000. Per farlo 
dobbiamo assegnare i valori appropriati 
alle locazioni 43-44. 

Innanzitutto dividiamo 7000 per 256: il 


risultato è 27 con un resto di 88. Questi 
due valori sono appunto quelli da me- 
morizzare, rispettivamente nel byte alto 
(44) e nel byte basso (43); infatti, 
88+256*27=7000. Il tutto può essere 
realizzato per mezzo della seguente li- 
nea BASIC: 

POKE 44,INT (7000/256) : POKE 
43,7000-256*INT (7000/256) 

Queste istruzioni vanno digitate diretta- 
mente da tastiera e non eseguite all’in- 
terno di un programma BASIC; inoltre, 
affinché lo spostamento dell’inizio del 
BASIC sia effettivo è necessario battere 
anche la linea 

POKE 6999,0 :NEW 


La POKE è necessaria perché la loca- 
zione che precede il primo byte di BA- 
SIC deve contenere uno zero; il coman- 
do NEW adegua invece tutti gli altri 
puntatori allo spostamento che voglia- 
mo effettuare. 

Riassumendo, per leggere un numero 
N in formato byte basso/byte alto dalle 
locazioni B1 e B2 possiamo usare 
l’istruzione 

N=PEEK (Bl) + 256*PEEK (B2) 

Per memorizzare tale numero dobbia- 
mo invece utilizzare una linea del tipo 

V=INT (N/256) : POKE B1.N-V256: 
POKE B2,V 


5 REM NOTA ALTA O BASSA ? 

: rem 

10i 

200 

PRINT" {CLR}{ 4 GIU ' } { BLK } " : FORI *1 T05 : 

PRINTL$ : NEXT 


10 GOTO 100 

: rem 

43 



: rem 

42 

20 PRINT" {GIU' } {GRNjPREMI RETURN {BLU } " 

: rem 

222 

210 

N 1 = I NT ( 9 * RND ( 0 ) ) : Pi = 7796+N 1* 22 

: rem 

96 

22 GETA$ : I F A$ = " " THEN 2 2 

:rem 

235 

220 

POKEPl ,81 : POKEPl +30720,2 

: rem 

72 

24 IFASC (A$ ) <>1 3THEN22 

: rem 

243 

230 

N 2=1 NT ( 9*RND ( 0 ) ) : P2=7802+N2* 22 

: rem 

89 

26 RETURN 

:rem 

72 

240 

POKEP2 ,81 : POKEP2+30720, 2 

: rem 

76 

30 FORD = ITO 80 : NEXTD : POKES , 0 : RETURN 

: rem 

246 

250 

A=SGN (Ni -N2) +2:FL=0 

: rem 

16 

40 FORD = 1 TO500 : NEXTD : POKES , 0 : RETURN 

:rem 

36 

260 

POKES, 237 :GOSUB30 

: rem 

255 

100 PRINT" {CLR} {BLU}": PRINT" { 2 SPAZI }NOTA ALTA O BASSA?" 

270 

PRINT" { 3 GIU ' } { BLU } F 1 ALTA" : PRINT" F3 

UGUALE" : PRINT" F 


: rem 

107 


5 BASSA" 

: rem 

1 40 

110 PRINT" { 2 GIU ' }DUE NOTE SONO MOSTRATE";: 

PRINT" 


280 

GETA$ : IFA$=" "THEN280 

: rem 

87 

{ 3 SPAZI }DALLA PRIMA NOTA" 

: rem 

150 

290 

IF ASC (A$) <133 OR ASC (A$) >1 35THEN280 

: rem 

88 

120 PRINT" { 2 SPAZI }DOVETE DIRE { 2 SPAZI }SE 

LA" : PRINT' 

•SEC 

300 

IF ASC ( A$ ) =B ( A) THEN 3 50 

: rem 

1 35 

ONDA E' PIU' ALTA 0{ 6 SPAZI }PIU' BASSA" 

: rem 

237 

310 

FL=1 : POKES, 1 59: GOSUB30 

: rem 

56 

130 PRINT" { 2 GIU 1 } PREMI : " : PRINT" Fi PER NOTA 

ALTA" : PRINT" 

320 

POKES, 1 35: GOSUB30 : GOTO280 

: rem 

6 

F3 PER NOTA UGUALE" 

: rem 

91 

350 

POKES, F (Ni) :GOSUB40 

: rem 

1 22 

135 PRINT" F5 PER NOTA BASSA" 

: rem 

104 

360 

POKES, F(N2) :GOSUB40 

: rem 

124 

140 L$="{ 22 *}" 

:rem 

6 

370 

IF FL=0THENSC=SC+1 

: rem 

28 

150 FORI =0TO8 : READF ( I ) : NEXT 

: rem 

1 89 

380 

NEXTT 

: rem 

46 

160 DATA232 ,231 ,228,225,223,21 9,21 5, 209,207 

:rem 

1 1 4 

390 

PRINT" { 2 GIU ' }PUNTI = ";SC;"SU 10" 

: rem 

181 

170 B (1 ) =135:B(2) =1 34 : B (3) =1 33 

: rem 

218 

400 

PRINT" {GIU' } {GRNjANCORA ? (S/N)" 

: rem 

168 

175 POKE36878 ,15:S=36876 

: rem 

70 

410 

GETA$ : I F A$ = " S " THEN 1 90 

: rem 

165 

180 GOSUB20 

: rem 

123 

420 

IFA$< >"N" THEN 41 0 

: rem 

90 

190 SC = 0 : FORT =1 TOT 0 

: rem 

1 32 

430 

PRINT" {CLR} {BLU}" :END 

: rem 

43 
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Come si conduce una moderna 
fattoria? Qua! è il periodo mi- 
gliore per vendere il raccolto? 
Quanti cereali conviene imma- 
gazzinare per gli anni futuri? 
Questo educativo e divertente 
gioco di simulazione vi farà di- 
ventare i proprietari di un terre- 
no negli Stati Uniti che dovrete 
gestire per ottenere il miglior 
rendiconto economico. Per CI 6- 
Plus/4 e per VIC 20 munito di 
16K di espansione di memoria. 


S iete i proprietari di una fattoria di 
200 acri nel Midwest. Avete 20.000 
dollari da investire e dovete prendere 
decisioni difficili, se non vorrete andare 
in rovina: dove e cosa piantare, quanto 
insetticida ed erbicida usare, quando 
immagazzinare o vendere i prodotti e 
così via. 

IL GIOCO DEL FATTORE vi farà im- 
parare che guadagnare soldi con una 
fattoria non è impresa facile. 

Possedete cinque campi, ciascuno di 40 
acri, che possono essere coltivati a gra- 
no, mais o soia. L’inflazione determina 
tutti i costi, e i prezzi pagati per i vostri 
prodotti potranno variare con il cambia- 
re delle condizioni di mercato. Se i prez- 
zi dei cereali al momento del raccolto 
non sono abbastanza alti per coprire le 
spese, o volete attendere sperando in 
un rialzo, potete immagazzinare i pro- 
dotti e venderli in un secondo tempo. 

Semina e raccolto 

Dopo aver digitato il listato salvatene 
una copia su nastro o disco; il program- 
ma è completamente in BASIC, per cui 
per eseguirlo basta un semplice RUN. 
Potrebbe essere utile, almeno le prime 
volte che si gioca, munirsi di carta e 
penna per prendere nota degli sviluppi 
del gioco man mano si procede. Per 
prima cosa vi viene chiesto per quanti 
anni volete condurre la fattoria; potete 
impostare un numero qualsiasi, ma le 
prime volte conviene fare pratica con 
un periodo di cinque anni. A questo 
punto viene visualizzato il menu della 



stagione delle semine; avete quattro 
possibilità di scelta, da effettuare trami- 
te i tasti-funzione: 

Stagione delle semine 

fi... Notizie del mercato 
f3... Situazione finanziaria 
f5... Semina 

f 7... Vendita raccolti in futuro 

Le notizie del mercato (fi) contengono 
informazioni essenziali per il buon pro- 
seguimento del gioco: dovreste sempre 
osservarle come prima cosa. Vengono 
indicati: 

1 - Tasso di inflazione annuale, che 
influenza tutti i costi e che può variare 


fra lo 0 e il 5 percento (siamo negli 
USA, non in Italia!). 

2 - Costo del gasolio per gallone. 

3 - Costo per unità di erbicida e inset- 
ticida. 

4 - Costi di manutenzione (che inclu- 
dono le spese per le macchine agricole, 
le riparazioni, eccetera). 

5 - Costi propri della terra per acro 
(che includono tasse, irrigazione, ecce- 
tera). 

6 - Costo per staio (N. B. lo staio è 

una unità di misura per cereali, pari a 
circa 36 litri) dei cereali da semina (gra- 
no, mais e soia). ' 

7 - Futuri prezzi di mercato per ognu- 
no dei tre tipi di cereali. 
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Quest’ultima voce sarà molto importan- 
te più avanti nel gioco, quando arriverà 
il tempo di vendere le merci immagazzi- 
nate. Dopo aver premuto un tasto tor- 
nerete al menu della semina. 

Per vedere la vostra attuale situazione 
finanziaria premete f3. Lo schermo mo- 
strerà a quanto ammonta il vostro conto 
in banca, il denaro che dovete alla ban- 
ca, il numero di staia dei tre tipi di cere- 
ali che avete in magazzino e il costo 
mensile di immagazzinaggio (un centesi- 
mo e mezzo di dollaro per staio). Anco- 
ra una volta, premete un tasto per tor- 
nare al menu. 

L’opzione Semina (f5) vi immette nella 
parte principale del gioco, che vedremo 
fra poco. Per vendere i cereali premete 
f7; il prezzo di vendita è quello che ave- 
vamo potuto osservare precedente- 
mente nell’opzione Notizie del mercato 
(fi). Il primo anno non avete grano in 
magazzino e perciò niente da vendere, 
ma più avanti nel gioco, quando ne 
avrete, potrete vedere quante staia di 
ciascun tipo di cereale vi sono in magaz- 
zino, insieme alle attuali previsioni sui 
futuri prezzi di mercato per ciascun pro- 
dotto. 

Vi si chiederà ora se volete vendere 
grano (fi), mais (f3), soia (f5) oppure 
niente (f7). Se la vostra scelta è di non 
vendere più (f7), ritornerete al menu di 
semina, altrimenti selezionate il tipo di 
cereale da vendere. Vi viene a questo 
punto chiesto il numero di staia che vo- 
lete vendere (fino al totale che avete in 
magazzino). Se a questo punto cambia- 
te improvvisamente idea e non volete 
più vendere, impostate semplicemente 
il valore “0”. Alla fine dell’operazione 
vi viene chiesto se siete soddisfatti del 
quantitativo di merce venduto, o se ne 
volete vendere ancora. Rispondete a to- 
no per ripetere la procedura o per ritor- 
nare al menu di semina. 

Entriamo nella parte attiva del gioco 
con l’opzione Semina (f5). A differenza 
delle altre opzioni finora esaminate, in 
questa non potrete tornare al menu pri- 
ma di aver completato l’operazione di 
semina: perciò se volete osservare il vo- 
stro stato finanziario, le notizie del mer- 
cato o vendere dei prodotti, fatelo pri- 
ma di entrare in questa opzione. 

Dopo aver premuto f5 appare un mes- 
saggio, il quale vi ricorda che avete cin- 
que campi di 40 acri ciascuno e che i 
campi 1, 2 e 3 sono leggermente più 
fertili rispetto ai campi 4 e 5. Per ognu- 
no dei cinque campi scegliete quali dei 
tre cereali a disposizione volete semina- 
re. Per il campo 1 impostate 1 per il 
grano, 2 per il mais o 3 per la soia; 
ripetete questa operazione per tutti e 
cinque i campi (occorrono 1,5 staia di 
sementi per seminare un acro a grano 
o a soia e 0,334 staia per seminare un 
acro a mais). 

Ora viene visualizzata la superficie tota- 
le seminata con i tre cereali e vi viene 
chiesto quante unità di insetticida e di 
erbicida volete utilizzare per acro. Valo- 
ri troppo bassi potrebbero ridurre dra- 


sticamente il raccolto, mentre applicare 
questi prodotti chimici oltre un certo 
quantitativo risulta inutile e costoso. Il 
corretto valore dovrebbe essere fra 15 
e 35 unità per acro, però è meglio cer- 
care personalmente un valore ottimale: 
ma anche impostando questo valore vi 
è comunque sempre una piccola possi- 
bilità che le erbacce, gli insetti o sempli- 
cemente il tempo non favorevole possa- 
no ridurre il vostro raccolto. 

Dopo la semina e la distribuzione di er- 
bicidi e insetticidi i costi dei vari prodotti 
utilizzati (sementi, prodotti chimici e 
così via) vengono automaticamente sot- 
tratti dal vostro conto in banca. Se que- 
sto va in rosso, dovrete chiedere in pre- 
stito del denaro alla banca stessa. 
Questa può prestarvi fino a 50.000 dol- 
lari a un tasso di interesse annuo del 12 
per cento. La rata di restituzione, che 
decorre dal momento del raccolto, è di 
almeno un terzo del prestito totale. Se 
il prestito di cui avete bisogno supera i 

50.000 dollari, siete considerati in ban- 
carotta; questo pone prematuramente 
fine al gioco. 

Mietere ciò che si è seminato 

Dopo il periodo della semina il program- 
ma giunge direttamente al periodo della 
mietitura. A questo punto voi potete 
vendere o immagazzinare i cereali, pa- 
gare i conti e avere il riscontro delle 
vostre vendite nel periodo della semina 
(se ve ne sono state). 

Molte importanti informazioni sono pre- 
senti sullo schermo in questo momen- 
to: 

1 - Il prezzo attuale di vendita allo 
staio per i tre tipi di cereali e la resa 
per ciascun tipo. 

2 - La vostra situazione bancaria 
(dopo la deduzione delle spese di semi- 
na). 

3- 11 denaro da voi ricevuto per le 
vendite nel periodo della semina. 

4- 11 valore del raccolto di quest’an- 
no, se tutto venisse venduto agli attuali 
prezzi di mercato. 

5- 11 valore minimo da restituire alla 
banca per il prestito. 

6 - I costi di mietitura. 

7 - Le spese per il gasolio. 

8 - Le spese per acro di terreno. 

9 - Le spese di manutenzione. 

10 - Le spese per il magazzinaggio 
del prodotto. 

Viene anche visualizzato il vostro attivo 
totale (conto in banca + guadagni per 

11 raccolto venduto nel periodo della se- 
mina + intero valore del raccolto di que- 
st’anno) e il totale dei debiti (prestito 
bancario -l- costi della mietitura + spesa 
del gasolio + spese per il terreno + spe- 
se di manutenzione + spese per il ma- 
gazzinaggio). 

Prendete nota di queste informazioni, 
quindi premete un tasto e iniziate a de- 
cidere cosa fare dei vostri cereali. Pote- 
te vendere tutto il raccolto, oppure im- 
magazzinarlo totalmente, oppure sce- 
gliere una qualsiasi via di mezzo: vi vie- 


ne chiesto quante staia per ogni tipo di 
cereale volete vendere al corrente prez- 
zo di mercato. Impostate un numero 
per ogni tipo di cereale, ovviamente in- 
feriore o uguale al quantitativo totale: 
vedrete la somma di denaro che vi frut- 
terà la vendita. Se a questo punto avete 
cambiato idea, premete fi e reimposta- 
te il numero di staia da vendere, oppure 
premete f3. Se vi sono cereali invendu- 
ti, questi vengono automaticamente po- 
sti in magazzino. 

Dopo questa procedura vi viene chiesto 
di effettuare almeno il minimo rimborso 
del vostro debito, se esso esiste. Nel 
caso in cui, dopo aver venduto o imma- 
gazzinato i cereali e aver pagato tutte 
le spese, il vostro conto in banca risulti 
in rosso, avete ancora bisogno di un 
prestito, e il quantitativo minimo di de- 
naro che dovete chiedere vi viene mo- 
strato. Se il prestito risulta inferiore ai 

50.000 dollari, il programma passa il 
controllo al menu di semina per l’anno 
successivo. 

Dopo aver giocato per il numero di anni 
selezionato all’inizio appare la scherma- 
ta finale. Questa include il bilancio ban- 
cario, il numero di staia in magazzino, 
col relativo valore, e il debito che avete 
con la banca. Queste voci determinano 
il bilancio finale: se questo risulta essere 
superiore o uguale ai 20.000 dollari con 
cui eravate partiti, avete lavorato con 
profitto (o almeno non avete perso nul- 
la!) e potete quindi considerarvi un 
buon fattore. Se il bilancio è inferiore a 

20.000 dollari, significa invece che non 
avete amministrato con successo la fat- 
toria. 

Strategie di gioco 

Coloro che hanno collaudato questa si- 
mulazione hanno spesso commentato 
che è troppo simile alla realtà: è difficile 
guadagnare. 

Ciò è effettivamente vero, ma avere 
successo non è impossibile: con una 
buona strategia e forse anche un po’ di 
fortuna potrete guadagnare anche ab- 
bastanza denaro. Ecco alcuni consigli 
che vi potranno essere utili. 

Il quantitativo di erbicida e insetticida 
applicato è fondamentale per l’esito dei 
vostri raccolti. Come già detto, dovreb- 
be essere intorno alle 15-35 unità per 
acro. I dati presentati dal programma 
vi saranno utili per stabilire se indovina- 
te il quantitativo giusto. Nel ciclo di rac- 
colto viene mostrata la resa (in staia per 
acro) di ogni tipo di cereale seminato. 
La tabella illustra quale dovrebbe esse- 
re il rendimento medio delle tre colture. 
Altri fattori possono influenzare la resa, 
ma se ottenete costantemente raccolti 
scarsi, provate ad aumentare il quanti- 
tativo di erbicida e/o insetticida. 
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Frumento 

Prezzo per staio 

Resa (staia per acro) 

Costi carburante 
(galloni per acro) 

Grano 

$2.80 

62 

50 

Mais 

$2.33 

100 

85 

Soia 

$6.30 

31 

60 


La decisione di vendere o immagazzina- 
re il prodotto dovrà dipendere dal prez- 
zo che viene proposto al momento del 
raccolto. Se è sotto il prezzo-base indi- 
cato nella tabella, o se comunque spera- 
te che il prezzo si alzi ulteriormente, 
potete immagazzinare parte o tutto il 
raccolto. Ma se fate questo per più di 
un anno, potete facilmente andare in 
bancarotta, quindi fate attenzione. An- 
che se vendete i vostri cereali al merca- 


to nel tempo della semina, riscuoterete 
i soldi solo dopo il raccolto: se le spese 
di semina vi fanno superare il limite pas- 
sivo di 50.000 dollari, è la bancarotta. 
Ognuna delle tre colture ha le sue carat- 
teristiche specifiche, che potreste voler 
considerare al momento della semina e 
della vendita. 11 grano e la soia sono le 
sementi meno costose, mentre il mais è 
di gran lunga il più costoso. Tuttavia la 
speranza di un raccolto eccezionale (e 


11 gioco del fattore 

Versione per C16-Plus/4 

2 BO=10:BG=10:CH=3:IT=0: GOSUB630 : POKE6529 
9,212 : rem 199 

4 KEY1 , " " : KEY 2 , " " : KEY 3 , " " : KEY 8 , " " 

:rem 20 

6 CLR : GOSUB63 2 : FG = 0 : PRI NT" { 4 GIU'}£ER QU 
ANTO TEMPO TERRAI LA FATTORIA : rem 63 

8 INPUTQQS :QQ=VAL (QQ$ ) : IFQQ= OTHENGOSUB59 8 

:rem 206 

1 0 IFFGOOTHEN6 :rem 140 

1 2 FORZZ= 1 TOQQ :GOSUB432 : GOSUB440 : IFZZ=1 TH 

ENGOSUB448 : rem 144 

14 BO=7: BG=6:CH=1 :GOSUB630 :rem 38 

16 PRINT" {CLR} {RVS} ANNO : {OFF } " ; ZZ : PRI NT" 
{ RVS } STAGIONE DELLE SEMINE: {OFF} 

:rem 12 

18 PRINTTAB (5) " { 2 GIU ' }Fl .. .NOTI ZIE DEL 
MERCATO : rem 154 

20 PRINTTAB (5) "F2. . .SITUAZIONE FINANZIARI 
A : rem 167 

22 PRINTTAB (5) "F3. . .SEMINA :rem 48 

24 PRINTTAB (5) "HELP. . .VENDITA RACCOLTI IN 
FUTURO : rem 125 

26 PRINTTAB (8) " { 2 GIU'}QUAL E' LA TUA SC 
ELTA? : rem 42 

28 GOSUB60 2 :POKE239,0 : rem 229 

30 IFA< 30RA> 6THEN28 : rem 145 

32 AA=A- 2 : ONAAGOSUB388 ,238,282,31 2 

:rem 147 

34 IFAA=4THEN38 :rem 131 

36 GOTO 14 :rem 7 

38 BO=8:BG=8:CH=7:IT=0: GOSUB630 :rem 121 

40 PRINT" {CLR} { 7 GIU ' }" : PRINTTAB (7) "IL R 
ACCOLTO STA CRESCENDO. : rem 159 

42 FX=0:FORJ=lTO3:FX=FX+ (TS ( J) * INT ( (BP ( J) 
*FP (J) ) *1 00+. 5) /I 00) :NEXT :rem 82 

44 FX= INT ( FX* 1 00+.5)/100: SB= 0 :rem 98 

46 FORJ=1 T03 : SB=SR ( J) +SB: NEXT :rem 100 

48 FORJ = 1 T03 :SR(J)=SR(J) -TS(J) : NEXT 

: rem 192 

50 GOSUB450 : GOSUB482 :rem 214 

52 GT= 0 : FORJ = 1 TO 3 : GT=GT+ (TY ( J) *INT (YP (J) * 
1 00+. 5) /I 00) :NEXT : rem 187 

54 PT=0:FORJ=lTO3: PT= (FU (J) *TA (J) ) +PT:NEX 
T: PT=INT (PT*GA* 1 00+ . 5) /I 00 :rem 35 

56 BO=6:BG=6:CH=2:IT=0: GOSUB630 :rem 112 


quindi di profitti maggiori) è più alta con 
un uso giudizioso delle piantagioni di 
mais. La soia tende a dare buoni raccol- 
ti, ma il suo prezzo subisce sbalzi note- 
voli, generalmente molto superiori a 
quelli di grano e mais. 

In alcune stagioni sarà necessario im- 
magazzinare la maggior parte, se non 
la totalità del raccolto e sperare che i 
prezzi si alzino sul mercato nel periodo 
di semina per avere un minimo di profit- 
to. In questo caso potrebbe convenire 
indebitarsi, se si vedono le prospettive 
di un ottimo guadagno a lunga scaden- 
za. Il problema diventa però grosso se 
vi è una contingenza di prezzi sfavore- 
voli per diversi anni di seguito, il che 
provoca l’accumularsi degli interessi sul 
debito bancario e dei costi di magazzi- 
no. Giocare la carta dell’immagazzinag- 
gio in grande quantità potrebbe risulta- 
re la vostra ricchezza o la bancarotta. 

58 PRINT" {CLR}" : PRINT" {RVS} { 3 SPAZI }TEMP 
O DI RACCOLTO ALLA FATTORIA { 3 SPAZI} 
{OFF} :rem 59 

60 GOSUB61 4 : PRINT" {RVS } PRODOTTO {OFF } 

{ 5 SPAZI} {RVS }PREZZO {OFF }{ 8 SPAZI} 
{RVS} RESA {OFF} :rem 102 

62 FORJ = 1 T03 : RR=TA ( J ) : IFRR = 0THENRR=1 

:rem 67 

64 TM=YP ( J) :GOSUB61 6 : YP$=TM$ : YP (J) =VAL (TM 
$) :rem 160 

66 TM=TY ( J) :GOSUB61 6 : TY$=TM$ : TY ( J) =VAL (TM 
$) :rem 174 

68 PRINTN$ (J) ; TAB (13)YP$;TAB( 3 3- LEN (TY$ ) ) 
INT(TY(J) ) :NEXT : rem 144 

70 PRINT" {GIU' }E' ORA DI PAGARE I CONTI E 
DI VENDERE IL RACCOLTO GOSUB6 1 2 

:rem 98 

72 PRI NT" BILANCIO BANCARIO ATTUALE" TM=B 
A: GOSUB61 6 : BA$=TM$ : BA=VAL (TM$ ) 

:rem 77 

74 PRINTTAB (33-LEN (BA$) ) BA$ : rem 49 

76 PRINT" {GIU' }RESA PRECEDENTE RACCOLTO"; 

: TM=FX :GOSUB61 6 : FX$=TM$ :rem 118 

78 PRINTTAB (33-LEN (FX$) ) FX$ :rem 107 

80 PRI NT" TOTALE DISPONIBI LE" ; : TM=GT: GOSUB 
6 1 6 : GT$=TM$ : GT=VAL (TM$ ) :rem 255 

82 PRINTTAB (33-LEN (GT$) ) GT$ :rem 96 

84 PRI NT" MUTUO RI SALDATO" TM=INT (( LO/3 ) * 
1 00+. 5) /I 00 :GOSUB61 6 :rem 55 

86 PRINTTAB (33-LEN (TM$) ) TM$ : LP=INT (VAL (TM 
$) * 1 00+ - 5) /I 00 : rem 193 

88 PRINT"COSTI DEL RACCOLTO" TM=HV: GOSUB 
6 1 6 : HV$ =TM$ : PRINTTAB (33- LEN (HV$ ) ) HV$ 

:rem 235 

90 HV= INT (VAL (TM$ ) *100+.5)/100 :rem 130 
92 PRI NT"COSTI DEL TERRENO" TM=INT (CE* 1 0 
0+.5)/100*200: GOSUB61 6 :CE$=TM$ 

:rem 77 

94 PRINTTAB (33-LEN (CE$ ) ) CE$ :rem 61 

96 PRI NT" SPESE GASOLIO" TM=PT: GOSUB61 6 : P 
T$=TM$ : PT=INT (VAL (TM$ ) *100+.5)/100 

:rem 249 

98 PRINTTAB (33-LEN (PT$) ) PT$ : rem 121 

100 PRI NT" SPESE MACCHINARI TM=OV: GOSUB6 
1 6 : OV$ =TM$ : PRINTTAB ( 33-LEN ( OV$ ) ) OV$ 

:rem 201 

102 OV= INT (VAL (TM$ )*100+.5)/100 :rem 179 
104 PRI NT" CO STI DI IMMAGAZZINAGGIO" TM= ( 
1 2*SB* .015) :GOSUB61 6 : SB$=TM$ : rem 83 
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106 SB= INT (VAL (TM$ )*100+.5)/100 :rem 167 
108 PRINTTAB ( 33-LEN (SB$ ) ) SB$ : GOSUB61 2 

:rem 214 

110 PRI NT" {RVS} TOTALE ATTI VO= {OFF TM=B 



A+FX+GTt GOSUB61 6 t AA$=TM$ 

: rem 

2 

206 

1 1 2 

PRINTTAB (33-LEN (AA$ ) ) AA$ 

: rem 

88 

1 1 4 

PRINT" {RVS } TOTALE PASSIVO* {OFF } " ; 





: rem 

241 

208 

116 

TM=LP+HV+OV+PT+SB+ (CE* 200) tGOSUB61 6 tD 

210 


T$ =TM$ t DT=VAL (TM$ ) 

: rem 

81 

TI 8 

PRINTTAB (33-LEN (DT$ ) ) DT$ t GOSUB600 





: rem 

21 8 

21 2 

1 20 

FORJ = 1 TO 3 1 1 FTY ( J ) =0THENl 52 

: rem 

77 


1 22 

PRINT" {CLR}QUANTE STAIA DI " 

;N$ (J) 

• H 
t 

214 


VUOI" t PRINT" VENDERE? 

: rem 

1 29 


1 24 

PRINT"NE HAI UN MASSIMO DI " 

;TY ( J) 

. »i 
r • 

216 



: rem 

1 64 

21 8 

1 26 

FG = 0tX$ = " " t INPUTXS t IFX$ = " "THEN122 





: rem 

1 54 

220 

1 28 

X=VAL(X$) 

: rem 

224 

222 

1 30 

IFX>TY (J) THENPRINT"NON POSSIEDI "X 

: m st 

224 


AIA! " tGOSUB61 OtGOTOl 22 

: rem 

84 


1 32 

PRINTX"STAIA DI ”N$(J)" SARANNO VENDU 

226 


TI 

: rem 

30 

228 

1 34 

PRINT" PER t TM=X*YP ( J) tGOSUB616 




: rem 

228 

230 

136 

PRINTTM$tGOSUB6i 4 

: rem 

65 

232 

1 38 

PRINT" SONO "X"STAIA DI "N$(J) M GIUSTE 

234 


? 

: rem 

6 

236 

140 

PRINT" PREMI {RVS} Fi {OFF} PER 

CAMBIARE 

238 


, {rvsTf3{off} PER VENDERE 

: rem 

176 

240 

142 

GOSUB602 

: rem 

175 

144 

IFA= 4THEN1 22 

: rem 

1 58 


146 

IFA06THEN1 4 2 

: rem 

225 

242 

148 

BA=BA+ ( INT (X*YP ( J ) * 1 00+ . 5 ) /I 00 ) 


244 



: rem 

103 

246 

1 50 

SR ( J) = INT (TY ( J ) -X+SR ( J) ) 

: rem 

135 

1 52 

NEXT 

: rem 

21 5 

248 

1 54 

BA=INT ( (BA+FX) *100+.5)/100 

: rem 

60 

1 56 

IFLO=0THENl 76 

: rem 

0 


1 58 

PRINT" {CLR}QUANTA PARTE DEL 

MUTUO 

VUO 

250 


I 

: rem 

88 

252 

160 

PRINT" PAGARE? IL PAGAMENTO MINIMO 

E' 



: rem 

27 

254 

162 

PRINT"DI $"; t TM=INT ( ( LO/ 3 ) * 1 00+ . 5 ) /I 0 


0 t GOSUB61 6 t PRINTTMS 

: rem 

228 


164 

PRINT" {GIU' }SEI IN DEBITO DI 

: LO=I 

256 


NT (LO*100+.5)/100t PRINTLO 

: rem 

108 


166 

FG=0t INPUTA 

: rem 

162 

258 

168 

IFA<TMTHEN1 58 

: rem 

25 

260 

170 

I FA>LOTHENA=LO 

: rem 

1 37 

172 

BA=INT ( (BA-A) *100+.5)/100t LO 

= (LO-A) *1 

262 


.1 2tLO=INT(LO*100+.5)/100 

:rem 

43 

174 

iflo<othenlo=o 

: rem 

105 

264 

176 

BA=BA- INT (CE* 200* 100+.5)/100 

: rem 

151 

266 

178 

BA=BA- INT (OV* 100+.5)/100 

: rem 

250 

180 

BA=BA- INT (HV* 100+.5)/100 

: rem 

236 

268 

182 

BA=BA- INT (PT* 100+.5)/100 

: rem 

244 

1 84 

BA=BA- INT (SB*100+.5)/100 

: rem 

231 

270 

186 

IFBA<0THENGOSUB534 

: rem 

1 04 

1 88 

FORJ = 1 TO 3 t TY ( J ) =0 tNEXT 

: rem 

126 

272 

190 

FORJ = 1 TO 3 t TS (J) =0 tNEXT: NEXT 

: rem 

234 


1 92 


194 


196 

198 


PRINT" {CLR } " : PRINTTAB (5) " {RVS} 

{ 4 SPAZI {TABELLA DI FINE GIOCO 
{ 4 SPAZI}" :rem 15 

PRINT" { 2 GIU' {BILANCIO BANCARIO = $" 
; : TM=BA:GOSUB61 6 : PRINTTMS : BA=VAL (TM$ ) 

trem 158 

GOSUB61 2 treni 185 

PRINT"MERCE IN MAGAZZINO: : rem 190 


200 

202 

204 


274 

276 

278 

280 

282 


PRINT" {GIU '} {RVS } TI PO {OFF } { RVS } 

IA IMMAGAZZINATE {OFF} : rem 

XX=0 trem 

FORJ = 1 T03 : IFSR ( J) <0THENSR (J) =0 

: rem 

PRINTNS (J) ; : TM=SR ( J ) tGOSUBe 1 6 

: rem 

PRINTTAB (22-LEN (TMS) ) ;INT(SR(J) ) 
X+SR (J) *YP (J) tNEXT trem 

PRINT" {GIU ' }VALORE MERCE IN 
:TM=XX:GOSUB6i 6 
PRINTTAB (35-LEN (TM$ ) ) 

M$ ) : BA=BA+XX 
PRI NT" DEB ITO BANCARIO 
1 6 

PRINTTAB (35-LEN (TM$ ) ) 

LO=VAL (TM$ ) t BA 


STA 
25 
1 77 

92 

28 
XX=X 
l 81 

MAGAZZINO 
: rem 5 

" $"TM$ : XX=VAL (T 
: rem I 80 

" ; : TM=LO : GOSUB6 
trem 93 
"$"TM$ : rem 64 

BA-INT(LO*100+.5)/100 
trem 246 

IFBA>=20000THENZZ=i trem 100 

IFBA< 20000THENZZ= 2 trem 40 

PRI NT" TOTALE : " ; : TM = BA : GOSUB6 1 6 : BA= VAL 
(TM$ ) trem 12 

PRINTTAB (35-LEN (TMS) ) ;"$"TM$: 

8 

220 
0 

1 87 
21 
1 i 4 


: PRINT 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 


ONZZGOSUB566 , 576 
PRINT" VUOI RIPROVARE? 

GOSUB602 t IFA=1 3THEN2 
IFA039THEN232 
END 

PRINT" {CLR}" t BO = 2 1 BG = 2 t C H = 1 tGOSUB630 

trem 243 

PRINTTAB (5) " {RVS } { 6 SPAZ I } NOTI Z IE G 
ENERALI { 6 SPAZI }" tGOSUB6i 4 trem 20 

IR$=STR$ (INT( ( IR- 1 ) *100) ) trem 67 

PRI NT" TASSO DI INFLAZIONE t "TAB(33)IR 
$;"% trem 250 

TM=GAtGOSUB61 6tGA$ = TM$ tGA = VAL (TM$ ) 

trem 57 

PRI NT"COSTO GASOLIO (PER GALLONE) t"TA 
B (33-P) "$"GA$ trem 24 

TM=HS tGOSUBe 1 6 t HS$ =TM$ t HS=VAL (TM$ ) 

trem 109 

PRINT"COSTO ERBICIDA PER UNITA 't"TAB( 
33-P) "$"HS$ trem 160 

TM=I S t GOSUB6 1 6 t IS$=TM$t IS=VAL(TM$) 

t rem 116 

PRI NT"COSTO INSETTICIDA PER UNITA ' t"T 

AB (33-P) "$"IS$ trem 163 

TM=OV t GOSUB61 6 tOV$ = TM$ tOV=VAL (TM$ ) 

trem 147 

PRI NT"COSTI MANUTENZIONE t "TAB (33-P) "$ 
"OV$ trem 126 

TM=CE t GOSUB6 1 6 t CE$=TM$ trem 63 

PRI NT"COSTO PER ACRO t "TAB ( 3 3- P) " $"CE$ 
tGOSUB61 2 : rem 45 

PRINTTAB (9) "{RVS} { 2 SPAZI }PREZZI DI 
SEMINA { 2 SPAZI}" trem 144 

PRINT" {GIU ' }PREZZI DEI CEREALI PER ST 
AIO trem 242 

FORJ=lT03t PRINTNS (J) " t " ; t TM = BS (J) tGOS 
UB61 6 1 BS ( J) =VAL (TM$ ) trem 218 

PRINTTAB (33-P) "$"TM$ tNEXT t PRINTt GOSUB 
61 2 t rem 243 

PRINTTAB (8 )" {RVS} FUTURI PREZZI DI ME 
RCATO "t PRINT trem 130 

FORJ = 1 T03 t PRINTN$ ( J) "t"; t TM=BP ( J) *FP ( 
J)tGOSUB6l6 trem 152 

PRI NTTAB (33-P) "$"TM$ t NEXTt PR I NT 

trem 166 

GOSUB600t RETURN trem 202 

BO=3t BG = 1 :CH= 2 : IT=7 t GOSUB630 t rem 160 
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284 


286 

288 

290 

292 

294 

296 

298 


300 

302 

304 

306 

308 
31 0 
31 2 
31 4 


316 

31 8 
320 


322 


324 

326 


PRINT" {CLR}{ 2 SPAZI } { RVS } { 2 SPAZI} 
STATO DELLE FINANZE { 2 SPAZI }" :GOSUB6 
12 :rem 227 

TM=BA : GOSUB6 1 6 : BA=VAL (TM$ ) :rem 75 

PRINT" RISPARMI : "TAB (25-P) "$"BA 

: rem 1 39 

TM=LO : GOSUB6 1 6 : LO = VAL (TM$ ) :rem 1 1 8 

PRINT" DEB ITO BANCARIO:"; : rem 89 

IFLO = OTHENPRINTTAB (28) " " : GOTO 2 9 


8 


236 
1 03 


IN 

54 

79 

1 86 


: rem 

PRINTTAB (25-P) "$"TM$ : rem 

PRINT" {GIU* }" :GOSUB6l 2:PRINT" 

{ 5 SPAZI} {RVS} MERCI ATTUALMENTE 
MAGAZZINO " : PRINT: X = 0 : rem 

PRINTTAB (9) "MERCE" TAB ( 2 0 ) "STAI A 

: rem 

FORJ = 1 TO 3 : I FS R ( J ) <1 . 0THENSR ( J ) =0 

: rem 

PRINTTAB (8) N$ (J) TAB (22) SR (J) :X=X+SR (J 
) : NEXT : rem 1 04 

PRINT" { 2 GIU'}COSTO IMMAGAZZINAGGIO: 

$" ; :TM=INT (X* .01 5) :GOSUB61 6 : rem 1 24 
PRINTTM$" MENSILI. { 2 GIU 1 } :rem 112 
GOSUB600: RETURN : rem 196 

BO=5: BG=5:CH=1 :GOSUB630 :rem 84 

PRINT" {CLR}"TAB (4) " {RVS} { 2 SPAZI }TEM 
PO DI SEMINA ALLA FATTORIA { 2 SPAZI} 

" : rem 1 1 3 

PRINT" {GIU' }DEVI SEMINARE 200 ACRI , D 
IVISI IN : rem 146 

PRINT" 5 CAMPI DI 40 ACRI. : rem 40 
PRINT" {GIU 1 } I_ CAMPI 1-3 PRODUCONO RAC 
COLTI LEGGER- { 2 SPAZI }MENTE SUPERIOR 
I ALLA MEDIA. : rem 233 

PRINT" {GIU ' }I CAMPI 4 E 5 PRODUCONO R 
ACCOLTI LEGGER-MENTE INFERIORI ALLA M 
EDI A . :rem 237 

GOSUB61 2 :rem 178 

FORJ=1 T05 : PRINT" TI PI DI CEREALI DA SE 



MINARE NEL CAMPO {RVS}"J 

: rem 

21 7 

402 

PRINT"CHE TIPO DI CEREALE 

VUOI VENDER 

328 

PRINT" {RVS }1=GRANO {OFF }{ 3 

SPAZI } 



E? 

: rem 

218 


{ RVS } 2=MAIS {OFF } { 2 SPAZI }{ RVS } 3= 

SOIA 

404 

PRINT" {RVS }F1 {OFF}=GRANO{ 

2 SPAZI} 



{OFF}" 

: rem 

244 


{RVS}F2{OFF}=MAIS{ 2 SPAZ I } { RVS } F3 


330 

GOSUB602: IFA=56THENA=1 

: rem 

62 


{OFF }=SOIA { 2 SPAZI } {RVS }HELP {OFF } 

= N 

332 

IFA= 59THENA= 2 

: rem 

242 


ESSUNO 

: rem 

21 2 

334 

IFA=8THENA=3 

: rem 

191 

406 

GOSUB602: IFA<3ORA>6THEN406 

: rem 

74 

336 

IFA< 1 ORA> 3THENGOSUB60 6 : GOTO 3 30 


408 

J=A- 3: IFJ=0THENRETURN 

: rem 

83 



: rem 

1 28 

410 

IFSR (J) =0THENPRINT"NON POSSIEDI "; 

N$ ( 

338 

FL ( J ) =A: PRINT" {SU } " ; SPC ( 37 ) FL ( J) : 

NEXT 


J) ;" ! " : GOTO402 

: rem 

1 41 



: rem 

103 

41 2 

PRINT" QUANTE STAIA DI ”;N$(J)?" VUOI 

340 

PRINT" {CLR}TUTTI I CAMPI SONO ORA 

SEM 



: rem 

1 57 


INATI . 

: rem 

79 

41 4 

PRINT" VENDERE (FINO A ";SR(J); M STAIA 

342 

PRINT" IL TOTALE E':":FORJ= 

1 T03 : X= 

0 : FO 


)? 

: rem 

1 86 


RJJ=lT05 

: rem 

151 

41 6 

INPUTK 

: rem 

118 

344 

IFFL ( JJ) =JTHENX=X+40 

: rem 

21 1 

41 8 

IFK>SR ( J) THENPRINT" NON NE 

POSSIEDI 

CO 

346 

NEXT: TA ( J) =X : PRINTX" ACRI 

DI "N$ (J) " 


SI' TANTO !":GOT04 12 

: rem 

89 


PIANTATI . " : NEXT 

: rem 

60 

420 

SR ( J) =SR(J) -K: IFSR(J) <0THENSR ( J) =0 


348 

TM=0 : FORJ = 1 T03 : TM=TM+ (TA ( J) *BS (J) 

*BB ( 



: rem 

28 


J) ) : NEXT: TM=INT ( (TM+.005) * 

100)7100 

422 

TS (J) =K 

: rem 

98 



: rem 

1 40 

424 

PRINT" VUOI VENDERE ANCORA? 

: rem 

8 

350 

PRINT" {GIU' }COSTI DI SEMINA: ": :GOSUB6 

426 

GOSUB602 : IFA=1 3THEN388 

: rem 

49 


1 6:TM=VAL(TM$) : PRINTTAB (30 

-LEN (TM$ ) ) " 

428 

IFA039THEN426 

: rem 

31 


$"TM$ 

: rem 

68 

430 

RETURN 

: rem 

119 

352 

BH=BA: PRINT" {GIU ' }BILANCIO 

BANCARIO: 

432 

X=INT( (RND ( . ) *7+1 ) ) /I 00 

:rem 

1 55 


" ; : BA=BA-TM : TM=BA: GOSUB61 6 

: rem 

178 

434 

IFX> . 05THEN438 

: rem 

33 

354 

PRINTTAB (30-LEN(TM$) ) "$"TM$ :rem 

3 

436 

IR=1+X:GOTO440 

:rem 

52 

356 

PRINT" {GIU ' {TUTTO GIUSTO? 

(S/N) 


438 

IR= 1 

: rem 

168 



: rem 

1 85 

440 

FORJ=1 T03 : BS (J) =INT (BS (J) * 

IR* 1 00 ) /I 00 

358 

GOSUB602: IFA=39THENBA=BH:G0T031 4 



: NEXT 

: rem 

217 



: rem 

239 

442 

GA= INT (GA* IR* 100+. 51/100: IS=IS* (IR+.O 


360 IFAOl 3THEN358 :rem 22 

362 PRINT" {SU JQUANTE UNITA' PER ACRO DI I 
NSETTICIDaT 3 SPAZI }VUOI USARE? 

: rem 157 

POKE239 ,0: INPUTX$ : IFASC ( X$ ) <480RASC (X 
$) >57THENG0SUB598:G0T0364 :rem 117 
IFASC (X$) <480RASC (X$) > 57THENGOSUB59 8 : 
G0T0362 :rem 204 

X=VAL ( X$ ) : rem 230 

BA = BA- (X*200*IS) : IN* ( (SQR (X) -5) /5) +1 

: rem 166 

PRINT" QUANTE UNITA' PER ACRO DI ERBIC 
IDA VUOI USARE?" : rem 49 

X$ = "" : INPUTX$ : IFX$ = " "THEN372 : rem 1 1 4 
IFASC (X$) <480RASC (X$) > 57THENGOSUB59 8 : 
G0T0372 : rem 206 

X=VAL (X$ ) : rem 231 

BA=BA- (X* 200*HS) :HE= ( ( (SQR(X) -4.4J/5) 
+1) :rem 78 

PRINT" {GIU' }BILANCIO BANCARIO ATTUALE 
: : TM=BA : GOSUB61 6 : PRINTTM$ : GOSUB61 


364 

366 

368 

370 

372 

374 

376 

378 

380 

382 

384 

386 

388 

390 

392 

394 

396 

398 


IFBA< 0THEN534 
RETURN 

PRINT" {CLR}{ 5 
FUTURA VENDITA 


SPAZI } {RVS} { 
DI GRANO { 3 


PRINT" { 2 G I U * } HA I LA 
TA' DI CEREALI : rem 

PRINT" ATTUALMENTE IN MAGAZZINO:" 
T : rem 

FORJ = 1 T0 3 : IFSR(J) <0THENSR(J) =0 

: rem 


:rem 247 
:rem 232 
:rem 129 

3 SPAZI} 
SPAZI }" 

: rem 1 27 
SEGUENTE QUANTI 
1 88 
PRIN 
251 


1 02 


PRINTN$ (J) , INT(SR(J) ) ; " STAI A" : NEXT: GO 
SUB61 2 : rem 1 61 
PRINT" FUTURI PREZZI DEI 

93 


: rem 
CEREALI 
: rem 


400 FORJ=1 T03 : PRINTN$ (J) :TM=BP (J) *FP 
(J) : GOSUB61 6 : PRINTTM$ : NEXT :rem 168 
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1 ) : HS=HS* IR: OV=OV* (IR+.01 ) :HV=HV*IR 

:rem 235 

444 CE= INT (CE* ( IR+ . 01 ) * 1 00+ . 5 ) /I 00 

:rem 254 


446 F0RJ=1T03: BP (J) =BP (J) * (IR- . 01 ) : NEXT: R 



ETURN 

: rem 

73 

448 

FORJ=l T03 : FP (J) =1 .05: NEXT: RETURN 




: rem 

20 

450 

X=RND ( . ) * .98+.01 

: rem 

20 

452 

I FX< .4 5THENXX = 1 . 0+X : G0T046 0 

: rem 

1 44 

454 

IFX> . 80THENXX=X :GOTO460 

: rem 

21 7 

456 

IFX> . 4 5ANDX< . 5THENXX = 1 . 03 : GOTO460 




: rem 

16 

458 

XX = 1 

: rem 

1 91 

460 

X=RND ( . ) * (. 99- .01 ) +.01 

: rem 

35 

462 

I FX< . 1 THENXX=XX+1 +X :GOTO470 

: rem 

21 5 

464 

I FX> . 7 5THENXX=XX+X : GOTO 4 70 

: rem 

1 86 

466 

IFX> . 4ANDX< . 5THENXX=XX + 1 .02 

:GOTO470 



: rem 

1 83 

468 

XX=XX+1 

: rem 

1 55 

470 

XX=XX/2 

: rem 

1 53 

472 

I FX< . 2THENIN=IN/2:HE=HE/2 

: rem 

13 

474 

SF=IN: I FIN> 1 . 1 THENSF=1 .1 

: rem 

207 

476 

HF = HE: IFHF> 1 . 1 THENHF=1 . 1 

: rem 

1 68 

478 

FORJ = 1 TO 3 : TY ( J ) =0:NEXT 

: rem 

128 

480 

FORJ = 1 TO 5 : K=FL ( J ) : TY ( K) =INT (40*FF ( J) * 


BY ( K) *XX*HF*SF+TY (K) ) : NEXT: 

RETURN 




: rem 

1 1 2 

482 

FORJ = l T0 3 : GOSUB526 : DM (J) =XX 

: GOSUB526 : 


DC (J) =XX : GOSUB526 : EM ( J) =XX 

: rem 

8 

484 

GOSUB526 : FC (J) =XX:NEXT 

: rem 

1 29 

486 

X=0 

: rem 

l 03 

488 

X= 0 : FORJ = 1 TO 3 : X=DM (J) +X:X=X+DC (J) 

: X=X 


+EM ( J) :X=X+FC ( J) : FA ( J) =X/4 : X = 0 : NEXT 

:rem 203 


490 FORJ = 1 T03 :YP(J) =FA(J) *BP (J) : NEXT 




: rem 

1 91 

492 

X = 0 : FORJ = 

ITO 3 :rem 

19 

494 

I FDC ( J) >1 

. 0 5THENXX =.95: GOTO 500 




: rem 

20 

496 

IFDC (J) <. 

9THENXX = 1 . 1 : GOTO500 : rem 

171 

498 

XX = 1 

: rem 

1 95 

500 

X=X+XX 

: rem 

93 

502 

IFEM(J) >1 

. 0 5THENXX =.95: GOTO 508 




: rem 

29 

504 

IFEM(J) <. 

9 5THENXX = 1 . 1 2:GOTO508 




: rem 

27 

506 

XX = 1 

: rem 

1 85 

508 

X=X+XX 

: rem 

101 

51 0 

IFFC (J) >1 

. 1 THENXX= . 8 : GOTO 51 6 : rem 

168 

512 

IFFC (J) <. 

97THENXX=1 . 09:GOTO51 6 




: rem 

24 

514 

XX = 1 

: rem 

1 84 

516 

X=X+XX :X= 

X/3 :rem 

237 

518 

IFX= ! THENX= 1 .03 :rem 

1 21 

520 

FP (J) =X 

: rem 

93 

522 

X = 0 

: rem 

94 

524 

NEXT 

: rem 

21 8 


526 

528 

530 

532 

534 


536 

538 

540 


542 

544 

546 

548 


550 

552 

554 

556 

558 

560 

562 

564 

566 

568 

570 

572 

574 

576 

578 

580 

582 

584 

586 

588 

590 

592 

594 

596 

598 


X=RND ( .) * .98+.01 : rem 24 
IFX< .45THENXX=X + 1 : RETURN :rem 67 
I FX> . 70THENXX=X : RETURN :rem 224 
XX = 1: RETURN : rem 210 
PRINT" {CLR} {RVS }TI SERVE DEL DENARO I 
N PRESTITO : rem 49 


PRINT" { 2 GIU'}IL TUO BILANCIO BANCAR 
IO E' PASSIVO. : rem 187 

PRINT" PER FAR FRONTE AI PAGAMENTI DEV 
I : rem 165 

PRINT"CHI EDERE IN PRESTITO DENARO ALL 
A BANCA { 2 SPAZI} (FINO A $50000). 

: rem 191 

PRINT" LA RATA MINIMA DI RESTITUZIONE 
E ' 1 /3 : rem 12 3 

PRINT"DEL DEBITO AL 1 2% DI INTERESSE. 

:rem 90 

IF0-BA+LO>50000THEN584 :rem 215 

PRINT" { 2 GIU'} DEV I CHIEDERE IN PREST 
ITO ALMENO: " : PRINT"$" ; 0- ( INT (BA* 1 00+ . 
5)/100) :rem 92 

PRINT" PUOI CHIEDERE FINO A $"; 50000-1 
NT ( LO *100+.5)/ 1 00 : rem 47 

PRINT" {GIU ' }IL TUO DEBITO E' GIÀ' DI 
$" ; INT (LO*100+.5)/100 :rem 114 

PRINT" { 2 GIU 1 } QUANTO CHIEDI ALLA BAN 
CA? : rem 27 

INPUTX$ : X=VAL (X$ ) : IFVAL (X$ ) =0THEN556 

:rem 224 

IFLO+X>50000THENPRINT"SPIACENTE, IL T 
UO FIDO E' DI $50000" :G0T0554 

: rem 1 56 

IFX< INT ( 0-BA+ . 005 ) THENPRINT" NON ABBAS 
TANZA, RIPROVA" :G0T0554 :rem 106 

LO=LO+X : BA=INT ( (BA+X) *100+.5)/100: IFL 
0< 0THENLO = 0 : rem 48 

LO=LO* 1.12: RETURN :rem 24 

BO = 8 : BG= 5 : CH = 1 :GOSUB630 :rem 98 

PRINT" {GIU ' }CONGRATULAZ IONI ! ! 

{ 2 SPAZI }HAI BEN SVOLTO IL : rem 65 

PRI NT"QUAS I IMPOSSIBILE COMPITO DI FA 
R SOLDI : rem 10 

PRI NT"CON UN'AZIENDA AGRICOLA. LA BAN 
CA TI : rem 98 

PRINT" RITIENE UN BUON CLI ENTE .": RETUR 
N :rem 164 

BO=6 : BG=6 :CH= 1 :GOSUB630 :rem 98 

PRINT"TI SEI DIMOSTRATO UN FATTORE MO 
LTO : rem 154 

PRINT" SCADENTE! HAI PERSO SOLDI, ED O 
RA DEVI { 2 SPAZlTVENDERE LA FATTORIA 
PER :rem 160 

PRI NT" RIMBORSARE I TUOI CREDITORI !": R 
ETURN : rem 208 

GOSUB61 0 : GOSUB61 0 : PRINT" {CLR} {RVS} 

{ 11 SPAZI }SEI IN BANCAROTTA 
{ 12 SPAZI }Toff} : rem 0 

PRINT" { 2 GIU'} IL TUO FIDO IN BANCA E 
' STATO ORA : rem 104 

PRINT"SUPERATO ! HAI ACCUMULATO FORTIS 
SIMI : rem 49 


PRINT" INTERESSI SUI DEBITI ED ORA UN 
GIUDICE : rem 173 

PRINT" FALLIMENTARE TI HA CONFISCATO L 

A :rem 95 

PRINT" FATTORIA PER PAGARLI. : rem 192 
PRINT" { 3 GIU ' } " : GOTO 2 30 :rem 176 

FG=1 : PRINT" {GIU' }DEVI IMPOSTARE UN NU 
MERO . { 2 SU}" :GOSUB61 0: RETURN 

:rem 77 
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600 PRINT" {RVS }.{ 5 SPAZI }PREMI UN TASTO P 
ER CONTI NU ARE { 5 SPAZ I } {OFF } " : GOSUB60 



2 : RETURN 

: rem 

1 29 

602 

FORT=1 TO50 : NEXT: A=PEEK ( 2038 ) 

: IFA = 

64TH 


EN602 

: rem 

53 

604 

RETURN 

: rem 

1 22 

606 

PRINT"DEVI IMPOSTARE 1,2, O 

3 QUI 

. M sG 


OSUB61 0: RETURN 

: rem 

1 42 

608 

PRINT" {SU} { 32 SPAZI } {SU}" :RETURN 




: rem 

1 71 

610 

FORT= 1 TO 2 0 0 0 : NEXT : RETURN 

: rem 

56 

61 2 

PRINT" 




i " : RETURN 

: rem 

50 

61 4 

PRINT" { 38 * } " : RETURN 

: rem 

6 

616 

TM$=STR$ ( INT ( TM* 1 00+.5)/100) 

: rem 

243 

61 8 

P=0 : FORA=1 TOLEN (TM$ ) 

: rem 

1 96 

620 

IFMIDS (TM$ , A , 1 ) =" . "THENP=A- 1 

: rem 

15 

622 

NEXT: IFP=0THENTM$=TM$+CHR$ (46) :P= 

1 



: rem 

52 


624 IFMID$ (TM$ , (LEN (TM$) -2) ,1 ) =CHR$ (46) TH 
EN628 :rem 53 

626 TM$=TM$+CHR$ (48): GOTO 61 8 :rem 96 

628 RETURN :rem 128 

?30 COLOR4 , BO :COLORO , BG :COLORl ,CH, IT:RETU 
RN :rem 43 

632 PRINT" {CLR } { 4 GIU ' } " ;TAB ( 9 ) " {RVS } _I 
L GIOCO DEL FA { 2 T }ORE " :rem 165 

634 DIMBS (3) , BP ( 3 ) , FP ( 3 ) ,TY ( 3 ) , FL ( 5 ) , DM ( 3 
) ,DC(3) ,EM(3) ,FC(3) ,FA(3) ,YP(3) 

:rem 60 

635 DIMFU ( 3 ) ,BY (3) , BB (3) ,SR (3) , FF (5) ,DG (3 

) ,CF (3) , EF (3) ,OF (3) :rem 157 

636 FOR J = 1 TO 3 : READN $ (J) : NEXT : FORJ = 1 TO 3 : RE 
ADBP (J) : NEXT : FORJ = ITO 3: READ FU (J) : NEXT 

:rem 79 

638 F0RJ=lT03:READBY (J) : NEXT: FORJ = 1 T03 : RE 
ADBB(J) : NEXT : FORJ = ITO 3: READ BS (J) : NEXT 

:rem 102 

64 0 READ B A : READ LO : READGA: READCE : FORJ = 1 TO 3 
: SR (J) =0:NEXT: READIS:HS=IS :rem 149 

642 FORJ = 1 TO 5 : READ FF ( J ) : NEXT: FORJ = 1 TO3 : RE 
ADDF(J) :NEXT:F0RJ=1T03:READCF (J) : NEXT 

:rem 78 

644 FORJ=lT03:READEF (J) :NEXT:F0RJ=1T03:RE 
ADOF (J) :NEXT:READOV:HV=2*OV :rem 199 

646 BA$=STR$ (BA) : RETURN :rem 143 

648 DATA" GRANO" , "MAIS" , "SOIA" , 2 . 80 , 2 . 3 3 , 6 
.30,50,85,60 : rem 194 

650 DATA62, 1 00, 31 ,1.5, .334, 1.5, 7, 65, 7. 25, 
20000 ,0,1 ,70 : rem 58 

652 DATAI ,1.1, 1.03,1, .98, .9, .8, 1.1, .82,1, 
1.1,1 : rem 21 3 

654 DATAI ,.5, 1.1, .6, .25,1 .12,2000 

: rem 98 

Versione per VIC20 
con espansione da 16K 

1 0 PRINTCHRS (14) :BG=1 27 :CH=0 : GOSUB3040 

: rem 242 

20 CLR: GOSUB30 50 : FG = 0 : PRI NTTAB ( 2 ) " 

{ 4 GIU'}PER QUANTO TEMPO" : PRINT"TERRA 
I LA FATTORIA : rem 2 53 

30 INPUTQQS :QQ=VAL (QQ$) : IFQQ=OTHENGOSUB28 
70 : rem 36 

40 IFFGO0THEN20 :rem 187 

50 FORZZ=1TOQQ:GOSUB2040 :GOSUB2080 : IFZZ=1 
THENGOSUB21 30 : rem 23 

60 BG = 221 :CH = 0:GOSUB3040 : rem 116 

70 PRINT" {CLR} {RVS} ANNO: {OFF } " ; ZZ : PRI NT" 

{ RVS } STAG IONE DELLE SEMINE {OFF } 

:'rem 210 


80 PRINT" { 2 GIU'} Fi NOTIZIE DEL MERCATO" 




: rem 

1 43 

90 

PRINT" F 3 SITUAZ. FINANZIARIA 

t 




: rem 

i 68 

1 00 

PRINT" F 5 SEMINA 

: rem 

248 

i 1 0 

PRINT" F7 VENDITA FUTURA 

: rem 

32 

1 20 

PRINT" { 2 GIU ' }CHE COSA SCEGLI? 




: rem 

208 

1 30 

GOSUB2890 

: rem 

231 

1 40 

IFASC ( A$ ) <1 330RASC ( A$ ) >1 36THEN 1 30 




: rem 

77 

1 50 

AA=ASC ( A$ ) - 1 3 2 : ONAAGOSUBl ’ 1 0, 1 330, 

1 48 


0,1 830 

: rem 

37 

160 

IFAA=3THEN1 80 

: rem 

224 

1 70 

GOTO 60 

: rem 

55 

1 80 

BG=238 :CH=1 :GOSUB3040 

: rem 

176 

190 

PRINT" {CLR} { 7 GIU'}": PRINT 

"IL RACCO L 


TO CRESCE 

: rem 

1 27 

200 

FX = 0 : FORJ = 1 TO 3 : FX = FX+ (TS (J) 

* INT ( (BP (J 


) *FP (J) ) *1 00+ . 5) /I 00) : NEXT 

: rem 

1 26 

210 

FX=INT (FX*100+.5)/1 00: SB=0 

: rem 

141 

220 

FORJ = 1 T03 : 3B=SR (J) +SB:NEXT 

: rem 

1 42 

230 

FORJ = ! T03 :SR(J)=SR(J) -TS ( J ) 

: NEXT 




: rem 

233 

240 

GOSUB21 40 : GOSUB2300 

: rem 

92 

250 

GT=0 : FORJ = 1 T03 : GT=GT+TY (J) * 

INT (YP (J) * 


100+.5)/100: NEXT 

: rem 

1 54 

260 

PT= 0 : FORJ = 1 TO 3 : PT= (FU (J) *TA (J) ) +PT 

: NE 


XT: PT=INT (PT*GA* 1 00+.5) /100 

: rem 

82 

270 

BG=248:CH=0: GOSUB3040 

: rem 

176 

280 

PRINT" {CLR}": PRINT" {RVS }{ 2 

SPAZI }TEM 


PO DI RACCOLTO { 2 SPAZI} {OFF} 

: rem 1 1 6 

290 GOSUB2960: PRINT" {RVSjPROD. {OFF} 

{ 2 spazi}{rvs}prezzoToff}{ 3 SPAZI} 
{RVS} RESA {OFF} :rem 185 

300 FORJ = 1 T03 : RR=TA ( J ) : IFRR=0THENRR=1 

:rem 110 

310 TM=YP ( J) :GOSUB2970 : YP$=TM$ : YP (J) =VAL ( 
TM$ ) : rem 255 

320 TM=TY ( J) : GOSUB2970 : TY$=TM$ : TY ( J) =VAL ( 
TM$ ) :rem 12 

330 PRINTN$ (J) ;TAB (8) YP$ ; : PRINTTAB (24- (LE 
N (TY$ ) ) ) INT (TY ( J) ) : NEXT :rem 164 

340 PRINT" {GIU' }E' ORA DI PAGARE I 

{ 4 SPAZI }CONTI E DI { 2 SPAZI }VENDERE 
ILR ACCOLTO . " : GOSUB2880 :rem 203 

350 PRINT" {CLR}BILANCIO BANCARIO" : TM=BA: G 
OSUB2970 : BA$ =TM$ : BA=VAL (TM$ ) : rem 249 
360 PRINTTAB (1 0-LEN (BA$) ) "$"BA$ :rem 194 
370 PRI NT" RESA PREC ED . RACCOLTO" : TM=FX : GO 
SUB2970:FX$=TM$: PRINTTAB (1 0-LEN(FX$) ) 
" $"FX$ : rem 39 

380 PRINT"RESA TOTALE" : TM=GT: GOSUB2970 : GT 
$=TM$ :GT=VAL (TM$) :rem 37 

390 PRINTTAB (1 0-LEN (GT$) ) "$"GT$ : rem 245 

400 PRI NT" RATA DEBITO { 2 SPAZI }BANCARIO" : 
TM=INT ( (LO/ 3) *100+.5)/100: GOSUB2970 

:rem 58 

410 PRINTTAB (1 0-LEN (TM$) ) "$"TM$ : LP=INT (VA 
L (TM$ )*100+.5)/100 : rem 75 

420 PRINT"COSTI MIETITURA" : TM=HV: GOSUB297 
0 :HV$=TM$: PRINTTAB (1 0-LEN (HV$) ) "$"HV$ 

:rem 246 

430 HV= INT (VAL (TM$ )*100+.5)/100 :rem 176 
440 PRINT"COSTO PER 200 ACRI" :TM=INT (CE*2 
00*100+. 5)/100: GOSUB2970 :CE$=TM$ 

:rem 158 

450 PRINTTAB (1 0-LEN (CE$) ) "$"CE$ :rem 204 
460 PRINT" SPESE GASOLIO" : TM=PT: GOSUB2970 : 
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PT$ =TM$ : PT= I NT (VAL ( TM$ )*100+.5)/100 

: r em 3 0 

470 PRINTTAB (1 0-LEN (PT$) ) "$"PT$ :rem 6 
480 PRINT"SPESE MANUTENZIONE" : TM=OV: GOSUB 
2970 :OV$=TM$: PRINTTAB (1 0-LEN(OV$) ) "$" 
OV$ :rem 255 

490 OV=INT (VAL (TM$ ) * 1 00+.5)/100 :rem 189 
500 PRINT"COSTI DI MAGAZZINO" :TM= (1 2*SB*0 
.01 5) :GOSUB2970:SB$=TM$ :rem 207 

510 SB= INT (VAL (TM$ ) *100+.5)/100 : rem 166 
520 PRINTTAB (1 0-LEN (SB$))"$"SB$ :rem 228 
530 GOSUB2880 :rem 234 

540 PRINT" {CLR} {RVSjTOTALE ATTI VO= {OFF : 
TM=BA+FX+GT: GOSUB2970 : AA$=TM$ 

:rem 22 

550 PRINTTAB (1 0-LEN (AA$ )) "$"AA$ :rem 193 
560 PRINT" {GIU 1 } {RVS {TOTALE DEB ITO= {OFF } " 

:rem 222 

570 TM=LP+HV+OV+PT+SB+ (CE* 200 ) :GOSUB2970: 

DT$=TM$ :DT=VAL (TM$ ) :rem 138 

580 PRINTTAB (1 0-LEN (DT$) ) "$"DT$ : GOSUB28 80 

:rem 124 

590 FORJ=lT03: IFTY(J) =0THEN750 :rem 92 

600 PRINT" {CLR {QUANTE STAIE DI ":PRINTN$( 
J);" VUOI " : PRI NT" VENDERE? : rem 18 

610 PRI NT" NE HAI UN MASSIMO DI" : PRINTTY ( J 
)" DA VENDERE. : rem 131 

620 FG=0 : X$="" : INPUTX$: IFX$=""THEN620 

:rem 156 

630 IFASC ( X$ ) < 4 80 RASO ( X$ ) >57THEN600 

:rem 40 

640 X=VAL(X$) : rem 223 

650 IFX>TY ( J) THEN600 :rem 205 

660 PRINTX ; " STAIE DI " ;N$ (J) : PRI NT" SAREBB 
ERO VENDUTE" : PRI NT" PER $" ; : TM=X*YP ( J) 



:GOSUB2970 

: rem 

1 93 

670 

PRINTTM$:GOSUB2960 

: rem 

1 22 

680 

PRINT" SONO GIUSTE" ;X"STAIE? :rem 

105 

690 

print"Tgiu' }PREMI: {RVS}Fl{OFF} PER c 


AMBIARE" : PRINT" { 7 SPAZI } {RVS }F3 {OFF } 


PER VENDERE 

: rem 

228 

700 

GOSUB2890 

: rem 

234 

710 

IFA$=CHR$ (1 33 ) THEN600 

: rem 

119 

720 

IFA$< >CHR$ (1 34) THEN700 

: rem 

1 83 

730 

BA=BA+ ( INT (X*YP (J)*100+.5)/100) 




: rem 

1 00 

740 

SR ( J) =INT (TY ( J) -X+SR ( J ) ) 

: rem 

140 

750 

NEXT 

: rem 

21 9 

760 

BA=INT ( (BA+FX) *1 00+.5)/100 

: rem 

63 

770 

IFLO=0THEN870 

: rem 

3 

780 

PRINT" {CLR {QUANTO DEL DEBITO 



{ 5 SPAZI }VUOI RISARCIRE? 

: rem 

235 

790 

PRINT" I L MINIMO E' : " 

: rem 

245 

800 

TM=INT ( (LO/3) *100+. 5) /I 00: 

GOSUB2970 : P 


RINTTAB (3) TM$ 

: rem 

1 24 

810 

PRINT" {GIU' }DEVI UN TOTALE 

DI": PRINT" 


$"LO 

: rem 

230 

820 

FG=0: INPUTA 

: rem 

1 59 

830 

IFA<TMTHEN780 

: rem 

22 

840 

I FA>LOTHENA=LO 

: rem 

141 

850 

BA=INT ( (BA-A) * 1 0 0+ . 5 ) /I 00 : 

LO= (LO- 

A) * 1 


•12:LO=INT(LO*100+.5)/100 

:rem 

46 

860 

IFLO<0THENLO=0 

: rem 

107 

870 

BA=INT ( (BA- (CE*200) -OV-HV- 

PT-SB) * 

100) 


/100 

: rem 

220 

880 

IFBA< 0THENGOSUB2560 

: rem 

1 54 

890 

FORJ = 1 TO 3 : TY ( J ) = 0 : NEXT 

: rem 

126 

900 

FORJ = lT03:TS (J) =0: NEXT: NEXT : rem 

233 

910 

PRINT" {CLR} {RVS}TABELLA DI 

FINE GIOCO 


{OFF} 

: rem 

21 



920 PRINT" {GIU ' {BILANCIO BANCARIO 

{ 5 SPAZI } = $" ; : TM=BA : GOSUB2970 : PRINT 
TM$ : BA=VAL (TM$ ) : rem 191 

930 GOSUB2950 :rem 236 

940 PRI NT" MERCE IN MAGAZZINO: : rem 185 

950 PRINT"TRVS} MERCE {OFF} {RVS} STAIE 

{OFF} :rem 119 

960 XX = 0 : rem 188 

970 FOR J = 1T0 3: IFSR (J) C0THENSR (J) =0 

:rem 102 

980 PRINTNS (J) ;TAB (1 0) SR (J) :XX=XX+SR (J) *Y 
P (J) : NEXT : rem 1 04 

990 PRINT" VALORE MERCE { 1 0 SPAZI} IN MAGAZ 
ZINO : ; : TM=XX :GOSUB2970 :rem 92 

1000 PRINTTM$ : XX=VAL (TM$ ) :BA=BA+XX 

: rem 139 

1 0 1 0 GOSUB2880 : PRINT" {CLR} DEB ITO BANCARIO 
:TM=LO:GOSUB2970 : rem 0 

1020 PRINTTM? : LO=VAL (TM$ ) : BA= I NT ( BA- LO ) 

: rem 161 

1 030 IFBA>=20000THENZZ = 1 : rem 148 

1040 IFBA<20000THENZZ = 2 : rem 87 

1050 PRINT" {GIU' {TOTALE IN BANC A = $ " ; : TM = B 

A: GOSUB 29 70 : PRINTTMS : BA=VAL (TM$ ) :PRI 



NT 

: rem 

230 

1060 

ONZZGOSUB2720 , 2760 

: rem 

94 

1070 

PRI NT" VUOI RIPROVARE? 

: rem 

51 

1 080 

GOSUB2890 : IFA$="S"THEN 1 0 

: rem 

1 74 

1090 

IFA$< >"N"THEN 1 080 

: rem 

1 94 

1 1 00 

END 

: rem 

1 53 

ino 

PRINT" {CLR}" : BG= 25 :CH=0: GOSUB 3040 




: rem 

65 

1 1 20 

PRINT" {RVS} { 6 SPAZI }BO{ 2 

L }E 



{ 2 T } INO { 5 SPAZI }" :GOSUB2960 




: rem 

46 

1 1 30 

IR$=STR$ (INT( (IR- 1 ) *100) ) 

: rem 

1 i 2 

1 1 40 

PRINT" INFLAZIONE: ";TAB(1 6) IR$;"% 




: rem 

75 

1 1 50 

TM=GA: GOSUB2970 : GA$=TM$ : GA 

=VAL (TM$ ) 



: rem 

1 53 

1160 

PRI NT" CO STO GASOLIO: " ;TAB (1 6-P) "$ 

"GA 


$ 

: rem 

68 

1170 

TM=HS : GOSUB29 70 : HS$ =TM$ : HS 

=VAL ( TM$ ) 



: rem 

21 2 

1 1 80 

PRI NT" ERBICIDA: " ;TAB (1 6-P) 

" $ "HS$ 




: rem 

246 


1 1 90 TM=IS:GOSUB2970 : IS$=TM$ : IS=VAL (TM$ ) 

:rem 217 

1 200 PRI NT" I_NSETTIC ID A : " ;TAB (1 6-P) "$"IS$ 

:rem 238 

1210 TM=OV:GOSUB2970 :OV$=TM$ :OV=INT (VAL (T 
M$ ) *1 00+ . 5) /I 00 : rem 50 

1220 PRI NT"COSTI MANUTENZIONE PRINTTAB ( 
1 6-P) "$"OV$ : rem 115 

1230 TM=CE: GOSUB2970 :CE$=TM$ :rem 160 

1240 PRI NT"COSTO PER ACRO: "TAB (1 5-P) "$"CE 
$:GOSUB2880:PRINT" {CLR}" :rem 47 

1250 PRINTTAB (3) "{RVS} PREZZO SEMENTI " 

: rem 1 33 

1260 PRINT" {GIU ' {COSTO SEMENTI PER 

{ 5 SPAZI }STAIO: : rem 71 
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1 270 PRINT: FORJ = 1 T0 3 : PRINTN$ (J) ; " : " ; : TM=B 
S (J) :GOSUB2970: BS (J) =VAL (TM$ ) 

:rem 66 

1280 PRINTTAB (1 5-P) "$"TM$ : NEXT :rem 9 
■>290 PRINT" {GIU' } {RVS}PREV. PREZZO MERCAT 
O": PRINT : rem 103 

FORJ = ITO 3: PRINTN$ (J) :TM=BP(J) *F 


1 300 

1 31 0 

1320 
1 330 
1 340 

1 350 
1360 

1 370 
1 380 
1 390 

1 400 
1 41 0 

1 420 

1430 

1 440 

1450 


1460 

1470 

1480 

1490 

1 500 


1510 
1 520 

1 530 

i 540 

1 550 

1 560 

1 570 

1 580 
1 590 

1 600 

1610 
1 620 

1630 

1 640 


45 


202 

50 

162 


P (J) :GOSUB2970 : rem 

PRINTTAB ( 1 5-P) " $ " TM$ : NEXT: PRI NT 

: rem 

GOSUB2880: RETURN : rem 

BG =1 0:CH=1 :GOSUB3040 : rem 

PRINT" {CLR } { RVS } STATO FI NANZ I ARIO" : G 
OSUB2950 : rem 1 3 

TM = BA : GOSUB2970 : 3A=VAL (TM$ ) :rem 169 
PRINT"RISPARMI : " : PRINTTAB (1 5-P) "$"BA 

: rem 121 

TM=LO : GOSUB2970 : LO = VAL (TM$ ) : rem 219 

PRINT"DEVI ALLA BANCA:" : rem 238 

IFLO=0THENPRINTTAB (1 5) " " :GOTOl 

410 :rem 57 

PRINTTAB (1 5-P) "$"TM$ : rem 138 

GOSUB2950: PRINT" { RVS } GRANI IN MAGAZ 
ZINO" : PRINT: X = 0 : rem 49 

PRINTTAB (2) "TI PO" ; TAB ( 1 4 ) "STAIE 

: rem 14 2 

FORJ = ITO 3: IFSR(J) <1 . 0THENSR ( J) =0 

:rem 237 

PRI NTN$ (J) ;TAB (1 7) SR (J) :X=X+SR (J) :NE 
XT : rem 121 

PRINT" { 2 GIU' } TASSA MAGAZZ I NO : " : PRI 
NT" $ " ; :TM=INT (X* .01 5) :GOSUB2970 

:rem 51 

PRINTTM$" AL MESE. : rem 36 

GOSUB2880 : RETURN :rem 56 

BG=29:CH=0: GOSUB3040 :rem 177 

PRINT" {CLR} {RVS } { 3 SPAZI }TEMPO DI S 

EMINE { 3 SPAZI}" :rem 151 

PRINT" {GIU ' }HAI 200 
{ 7 SPAZI }PIANTARE, 


PRINT" 5 CAMPI DA 40 
PRINT" {GIU ' } I_ CAMPI 
RTILI . 

PRINT" {GIU' }_I CAMPI 
’ MENO FERTILI ." :GOSUB2880 : rem 
FORJ = 1 TO 5 : PRINT" {CLR } CEREALE DA 
TARE { 3 SPAZI} NEL CAMPO ";J:rem 

PRINTTAB (5) "{GIU’ } { RVS } 1 =GRANO 
{ 3 SPAZI }": PRINTTAB (5) " {RVS}2=MAIS 
{ 4 SPAZI } { OFF } " : PRINTTAB ( 5 ) " {RVS } 3= 
SOIA {OFF } : rem 172 

PRINT" {GIU ' } SCELTA?" :GOSUB2890 

:rem 182 


: rem 

ACRI DA 
DIVISI IN 

: rem 237 
ACRI. : rem 75 
1-3 SONO MOLTOFE 
:rem 83 
4 E 5 SONO UN PO 
44 
PIAN 
253 


IFASC ( A$ ) < 4 90RASC (A$) > 51 THENGOSUB292 

0: GOTOl 560 

: rem 

31 

FL ( J) =VAL(A$) : NEXT 

: rem 

74 

PRINT" {CLR}TUTTI I CAMPI 

POSSONO 

ESS 

ERE SEMINATI. 

: rem 

94 

PRI NT"C I SONO: " :F0RJ=1T03 

: X=0 : FORJJ= 


1T05 — :rem 198 
IFFL (JJ) =JTHENX=X+40 : rem 0 
NEXT: TA ( J ) =X : PRINTX ; " ACRI DI ";N$(J 
) : NEXT : rem 18 
TM=0 : FORJ= 1 T03 : TM=TM+ (TA (J) *BS (J) *BB 
(J) ) : NEXT: TM=INT ( (TM+.005) *100)/100 

:rem 183 

PRINT" {GIU' {COSTI SEMENTI: ":GOSUB29 
70 : TM=VAL (TM$ ) : PRINTTAB ( 1 5-LEN (TM$ ) ) 
" $ "TM$ :rem 63 


1 650 BH = BA: PRINT" {GIU 1 {BILANCIO BANCARIO: 

" :BA=BA-TM:TM=BA:GOSUB2970 :rem 222 
1660 PRINTTAB (1 0-LEN (TM$) ) "$"TM$ : rem 50 
1670 PRINT" {GIU ' }TUTTO GIUSTO? (S/N) 

:rem 233 

1 680 GOSUB2890 : IFA$="N"THENBA=BH : GOTOl 490 

:rem 217 

1690 IFA$< >"S"THEN1 680 :rem 211 

1700 PRINT" {CLR} {SU}QUANTE UNITA' PER ACR 
ODI INSETTICIDA VUOI { 3 SPAZI }UTILIZ 
ZARE? :rem 240 

1710 X$=" ": INPUTX$ : IFX$=" " THEN 1 700 

: rem 201 

1 720 IFASC (X$) <480RASC (X$) >57THENGOSUB287 
0 : GOTOl 710 : rem 80 

1 730 X=VAL(X$) t rem 16 

1740 BA=BA-X*200*IS: IN= ( (SQR(X) -5)/5) +1 

: rem 135 

1750 PRINT" {GIU' {QUANTE UNITA' PER ACRODI 
ERBICIDA VUOl{ 6 SPAZI }UTI LI ZZARE?" 

: rem 6 

1760 X$="" : INPUTX$: IFX$=""THEN1 750 

: rem 211 

1 770 IFASC (X$) <480RASC (X$) > 57THENGOSUB287 
0 : GOTO 1750 : rem 89 

1 780 X=VAL(X$) : rem 21 

1 790 BA=BA-X* 200 *HS : HE= ( ( (SQR (X) -4.4 ) /5) + 
1 ) : rem 51 

1800 PRINT" {GIU' {BILANCIO BANCARIO: $":TM 
=BA:GOSUB2970:PRINTTM$ :GOSUB2940 

:rem 69 

1810 IFBAC0THEN2560 :rem 68 

1820 RETURN :rem 171 

1830 PRINT" {CLR} {RVS} VENDITA FUTURA GRANI 

:rem 243 

1840 PRINT" {GIU’ }HAI LE SEGUENTI 

{ 7 SPAZI {QUANTITÀ ' DI CEREALI 
{ 2 SPAZI } IN MAGAZZINO: : rem 101 

1850 FORJ = ITO 3: IFSR (J) <0THENSR(J) =0 

:rem 148 

1 860 PRINTN$ (J) ; : TM$ = STR$ (SR(J) ) : PRINTTAB 
(1 5-LEN (TM$) ) SR ( J) : NEXT: GOSUB29 50 

:rem 72 

1870 PRINTTAB (4) "PREZZI FUTURI :rem 30 

1 880 FORJ = ITO 3: PRINTN$ (J) : TM = BP (J) *F 

P(J) :GOSUB2970 : PRINTTM$ : NEXT 

:rem 26 

1890 PRINT"CHE TIPO DI CEREALE { 3 SPAZI} 
VUOI VENDERE? : rem 22 

1900 PRINT" {RVS } F 1 {OFF }=GRANO{ 4 SPAZI} 

{ RVS } F 3 {OFF } =MAI S { 3 SPAZI } {RVS }F5 
{OFF}=SOIA{ 5 SPAZI } { RVS } F7 {OFF } =NIE 
NTE" :rem 151 

1910 GOSUB2890: IFASC (A$) <1 330RASC (A$) >1 36 
THEN 1 9 1 0 : rem 71 

1 920 J=ASC ( A$ ) - 1 32 : IFJ = 4THENRETURN 

:rem 54 

1930 IFSR ( J) =0THENPRINT"NON POSSIEDI ": PRI 
NTN$ ( J) ; " ! " : GOTOl 890 :rem 141 

1940 PRINT" {CLR }QUANTE STAIE DI ":PRINTN$ 
(J);" VUOI : rem 247 

1950 PRINT"VENDERE?" : PRINT" (FINO A ";SR(J 
);" STAIE)" : rem 33 

1960 INPUTK :rem 171 

1970 IFK>SR ( J) THENPRINT"NON NE POSSIEDI 

{ 7 SPAZI }ABBASTANZA!":GOSUB2940:GOT 
01940 :rem 73 

1980 SR(J)=SR(J) -K: IFSR(J) <0THENSR(J) =0 

: rem 88 

1990 TS(J)=K :rem 157 
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2000 

PRINT" {GIU ' }VUOI VENDERE ALTRI 



{ 4 SPAZI }CEREALI? 

: rem 

254 

201 0 

GOSUB2890: IFA$ = "S"THEN1 830 

: rem 

19 

2020 

I FA$< >"N"THEN20 1 0 

: rem 

1 82 

2030 

RETURN 

: rem 

165 

2040 

X=INT ( (RND ( . ) *7+1 ) )/100 

: rem 

200 

2050 

IFX> . 0 5THEN2070 

: rem 

119 

2060 

IR=l+X:GOTO2080 

: rem 

145 

2070 

IR= 1 

: rem 

210 

2080 

FORJ = 1 T03 : BS (J) =BS (J) *IR: NEXT 




: rem 

84 

2090 

GA= INT (GA* IR* 100+.5)/100:IS 

=IS* ( IR+ . 


01 ) :HS=HS*IR:OV=OV* (IR+.01 ) 

: HV=HV* IR 



: rem 

28 

2100 

CE=CE* (IR+.01 ) 

: rem 

224 

211 0 

CE= INT (CE* (IR+.01 ) *100+.5)/100 




: rem 

38 

21 20 

FORJ = 1 T03 : BP (J) =BP (J) * (IR- . 

01 ) : NEXT: 


RETURN 

: rem 

1 1 2 

2130 

FORJ = 1 TO 3 : F P ( J ) = 1 .05: NEXT: RETURN 




: rem 

58 

21 40 

X=RND (0) * (0 .98) +.01 

: rem 

197 

21 50 

IFX< . 45THENXX=1 +X :GOT021 90 

: rem 

145 

2160 

IFX> . 8 0THENXX=X : GOTO 2 1 90 

: rem 

55 

2170 

I FX> . 4 5ANDX< . 5THENXX= 1 . 03 : GOT02 1 90 



: rem 

1 09 

2180 

XX=1 .0 

: rem 

71 

2190 

X=RND (0) *(.99-. 01)+. 01 

: rem 

87 

2200 

I FX< . 1 THENXX=XX+1 +X : G0T0224 0 

44 



: rem 

2210 

IFX> . 75THENXX=XX+X :GOTO2240 

: rem 

14 

2220 

I FX> . 4ANDX< . 5THENXX=XX+1 .02 

: GOTO2240 



: rem 

10 

2230 

XX=XX+1 

: rem 

1 92 

2240 

XX=XX/2 

: rem 

1 98 

2250 

I FX< . 2THENIN = I N/ 2 : HE=HE/ 2 

: rem 

57 

2260 

SF=IN: IFIN>1 .1 THENSF=1 . 1 

: rem 

250 

2270 

HF=HE: I FHE> 1 . 1 THENHF= 1 . 1 

: rem 

209 

2280 

FORJ = 1 TO 3 : TY (J) =0:NEXT 

: rem 

169 


2290 FORJ = 1 T05 : K = FL ( J ) : TY ( K) =INT ( 40*FF ( J ) 
*BY ( K) *XX*HF*SF+TY(K) ) : NEXT: RETURN 

:rem 161 

2300 FORJ = 1 T0 3 : GOSUB2520 : DM ( J) =XX:GOSUB2 5 
20 :DC ( J) =XX :GOSUB2520 : EM ( J ) =XX 

:rem 179 

2310 GOSUB2520 : FC ( J) =XX : NEXT :rem 211 

2320 X=0 : rem 1 40 

2330 X=0 : FORJ = 1 T03 : X=DM ( J ) +X : X=X+DC ( J ) :X = 
X+EM ( J) :X=X+FC ( J) :FA ( J) =X/4 :X=0 : NEXT 

:rem 239 

2340 FORJ=l T03 :YP (J) =FA (J) *BP (J) : NEXT 

: rem 235 

2350 X= 0 : FORJ = 1 TO 3 : rem 62 

2360 I FDC (J) >1 • 0 5THENXX= .95: GOTO2390 

: rem 1 1 9 

2370 IFDC (J) <. 9THENXX=1 . 1 :GOTO2390 

:rem 13 

2380 XX = i : rem 235 

2390 X=X+XX : rem 1 50 

2400 IFEM(J) >1 . 0 5THENXX= .95: GOTO 2 4 30 

:rem 120 

2410 I FEM ( J ) < . 9 5THENXX= 1 .12:GOTO2430 

: rem 1 1 7 

2420 XX=1 : rem 230 

2430 X=X+XX : rem 145 

2440 IFFC ( J ) > 1 . 1THENXX=.8:GOTO2470 

:rem 13 

2450 IFFC ( J) < . 97THENXX=1 .09:GOTO2470 

:rem 124 

2460 XX = 1 : rem 234 

2470 X=X+XX :X=X/3 :rem 30 


2480 

I FX= 1 THENX= 1 .03 

: rem 

169 

2490 

FP (J) =X 

: rem 

1 49 

2500 

X=0 

: rem 

1 40 

2510 

NEXT 

: rem 

7 

2520 

X=RND (0) * ( . 99- .01 ) +.01 

: rem 

84 

2530 

I FX< . 45THENXX=X + 1 : RETURN 

: rem 

110 

2540 

IFX> . 70THENXX=X : RETURN 

: rem 

1 9 

2550 

XX=1 : RETURN 

: rem 

4 

2560 

PRINT" {CLR} {RVS}DEVI CHIEDERE UN 



{ 6 SPAZI }PRESTITO PER FAR 
{ 6 SPAZI {FRONTE ALLE SPESE 





: rem 

1 21 

2570 

PRINT" {GIU '} IL TUO BILANCIO 




{ 7 SPAZI {BANCARIO E' IN ROSSO." 




: rem 

4 


2580 PRINT"PUOI CHIEDERE IN{ 6 SPAZI }PRES 
TITO ALLA BANCA :rem 244 

2590 PRINT"UNA SOMMA DI DENARO { 3 SPAZI} 
FINO A $50000. : rem 218 

2600 PRI NT" LA RESTITUZIONE E' DI UN TERZO 
DEL PRESTITO CON UN TASSO DI" 

: rem 1 1 6 

2605 PRI NT" INTERESSE ANNUO DEL { 3 SPAZI} 

1 2 % . " : rem 92 

>610 GOSUB2880: IF0-BA+LO>50000THEN2800 

: rem 182 

2620 PRINT" {CLR} {GIU ' }DEVI CHIEDERE ALMEN 
O : " : PRINT"$" ; 0- INT (BA* 100+.5)/100 

:rem 165 

2630 PRINT"PUOI CHIEDERE FINO A:":PRINT"$ 
" ; 50000- ( INT (LO*100+.5)/100) 

:rem 246 

2640 PRINT" {GIU ' }DEVI UN TOTALE DI:":PRIN 
T"$" ; INT (LO*l 00+. 5) /I 00 :rem 21 1 
2650 PRINT" { 2 GIU'}QUANTO DENARO VUOI 

{ 4 SPAZI {CHIEDERE? : rem 106 

2660 X$="" : INPUTXS : IFX$=""THEN2650 

: rem 211 

2670 X=VAL(X$) : IFX=0THEN26 50 :rem 158 
2680 I FLO+X> 50 000THENPRI NT" I_L LIMITE DEL 
CREDITO E' DI $ 50000" : G0T026 50 

:rem 186 

2690 I FX< INT ( 0-BA+ .005) THENPRI NT"NON E' A 
BBASTANZA, { 4 SPAZI } RI PROVA GOTO 26 
50 :rem 105 

2700 LO=LO+X : BA=BA+X : I FLO< 0THENLO = 0 

: rem 198 

2710 LO=LO* 1.12: RETURN : rem 67 

2720 BG = 21 6:CH = 0: GOSUB30 40 :rem 221 

2730 PRINT" {GIU ' }CONGRATULAZIONI ! ! 

{ 5 SPAZI }HAI AMMINISTRATO LA 

{ 3 SPAZI } FATTORIA RIUSCENDO NEL"; 

:rem 128 

2740 PRINT"QUASI IMPOSSIBILE{ 5 SPAZI }COM 
PITO DI GUADAGNARE. LA BANCA TI CONSI 
DERA" : rem 157 

2745 PRI NT"UN BUON INVESTIMENTO." 

:rem 77 

2750 RETURN :rem 174 

2760 PRINT" {CLR}SEI UN CATTIVO{ 8 SPAZI} 
AMMINISTRATORE!" :rem 161 

2770 GOSUB2880: PRINT" {CLR}SEI INOLTRE UN 
PESSIMOCONTADINO ! " :rem 193 

2780 PRINT" {GIU 1 }HAI PERSO DEL DENARO 

{ 2 SPAZI }ED ORA DOVRAI VENDERE LA F 
ATTORIA PER PAGARE"; :rem 14 

2790 PRINT" I TUOI CREDITORI !": RETURN 

:rem 13 

2800 GOSUB2940 : GOSUB2940 : PRINT" {CLR} 

{ 2 SPAZI } {RVS }SEI IN BANCAROTTA! 
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{OFF} :rem 186 

2810 PRI NT" { 2 GIU' {LA TUA AMMINISTRAZION 
EE' STATA AVVENTATA : rem 160 

2820 PRINT"ED HAI SUPERATO IL{ 4 SPAZI }LI 
MITE! : rem 195 

2830 PRINT" {GIU ' {I. TASSI DI INTERESSE 

{ 2 SPAZI {ACCUMULATI COSTRINGONO"; 

:rem 179 

2840 PRINT" ALL' INTERVENTO UN{ 5 SPAZI }FUN 
Z IONARIO { 11 SPAZI }GOVERNATIVO 

:rem 214 

2850 PRINT" {SU}PER IL PAGAMENTO DEI 

{ 2 SPAZI {TUOI DEBITI. :rem 25 

2860 PRINT" {GIU' }" :GOTO! 070 : rem 237 

2870 FG=1 : PRINT" {GIU ' {DEVI IMPOSTARE UN 

{ 5 SPAZI {NUMERO QUI.{ 2 SU}":GOSUB2 
9 40: RETURN :rem 159 

2880 PRINT" {RVS}{ 4 SPAZI {PREMI UN TASTO 
{ 3 SPAZI } {OFF } " : GOSUB2890 : RETURN 




: rem 

25 

2890 

POKE1 98,0 

: rem 

0 

2900 

GETA$ : IFA$=" "THEN2900 

: rem 

1 85 

291 0 

RETURN 

: rem 

1 72 

2920 

PRINT"DEVI IMPOSTARE 1 , 2 { 

4 SPAZI }0 


3 QUI. ":GOSUB2940: RETURN 

: rem 

203 

2930 

PRINT" {SU } { 32 SPAZI } { SU } " 

.•RETURN 



: rem 

219 

2940 

FORT= 1 T02000 : NEXT: RETURN 

: rem 

1 i 2 

2950 

PRINT" 

RETURN 



: rem 

1 08 

2960 

PRINT" { 21 * } " : RETURN 

: rem 

1 24 

2970 

TM$=STR$ ( I NT (TM* 1 00+ . 5 ) /I 00) 




: rem 

40 

2980 

P=0 : FORA= 1 TOLEN (TM$ ) 

: rem 

248 

2990 

IFMID$ (TM$ ,A,1 ) =" . " THENP=A 

_ i 




: rem 

75 

3000 

NEXT: IFP=0THENTM$=TM$+CHR$ (46) :P= 

1 



: rem 

93 

301 0 

IFMID? (TM$ , (LEN (TM$) -2) ,1 ) 

=CHR$ (46) T 


HEN3030 

: rem 

1 31 

3020 

TM$=TM$+CHR$ (48) :GOTO2980 

: rem 

1 87 

3030 

RETURN 

: rem 

166 

3040 

POKE36879 ,BG : POKE646 ,CH: RETURN 




: rem 

1 50 


3050 PRINT" {CLR}{ 4 GIU ' }" ;TAB (44) " {RVS{ 
IL GIOCO DEL FA { 2 T}ORE " : rem 1 
3060 FORJ = 1 TO 3 : READN $ (J) : NEXT : FOR J = 1 TO 3 : R 
EADBP (J) : NEXT: F0RJ = 1T03: READ FU (J) : NE 
XT : rem 121 

3070 FORJ = 1 TO 3 : READ B Y ( J ) : NEXT: FORJ = 1 T03 : R 
EADBB (J) : NEXT: F0RJ = 1T03: READ BS (J) : NE 
XT :rem 143 

30 80 READBA : READ LO : READGA: READCE : FORJ = 1 TO 

3 : SR ( J) =0 : NEXT: READIS:HS = IS: rem 1 98 
3090 FORJ = ITO 5: READ FF (J) : NEXT: FORJ=1 T03 : R 
EADDF(J) : NEXT: FORJ = 1 T03 : READCF ( J) : NE 
XT : rem 126 

31 00 F0RJ=1T03:READEF (J) : NEXT: FORJ=1 T03 : R 
EADOF(J) : NEXT: RE ADO V : HV= 2*OV 

:rem 237 

3110 BA$ = STR$ (BA) : RETURN : rem 180 

3120 DATA" GRANO" , "MAIS" , "SOIA" ,2.80,2.33, 
6.30,50,85,60 :rem 230 

3130 DATA62 ,1 00,31 ,1.5, .334, 1.5, 7, 65, 7. 25 
,20000,0,1,70 : rem 102 

3140 DATAI ,1 .1 ,1 .03,1 ,.98,. 9,. 8,1 .1 ,.82,1 
,1.1,1 : rem 0 

31 50 DATAI ,.5, 1.1, .6, .25,1 .1 2,2000 

: rem 140 



1 " 
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Per collaborare a SUPERCOMMODORE 


La rivista è interessata ad articoli e programmi per C64 e CI 28 di interesse generale, chiari 
ed esaurienti. Vi proponiamo una piccola “guida”, che ha particolarmente lo scopo di rendere 
più accurata la stesura dei vostri manoscritti: seguendo i nostri consigli si accresceranno le 
probabilità che le vostre buone idee e i vostri programmi vengano pubblicati. 


1 l’angolo superiore sinistro della prima pagina 
dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data di spedi- 
zione, luogo e data di nascita. 

2 l’angolo superiore destro della prima pagina 
dovrà contenere la marca e il tipo di compu- 
ter al quale il lavoro si riferisce, unitamente ad 
eventuali espansioni di memoria o periferiche ri- 
chieste. 

3 il titolo dell’articolo, sottolineato, dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina. 

le pagine seguenti potranno essere battute 
normalmente, con la condizione che l’angolo 
superiore destro contenga un’abbreviazione del 
titolo e del cognome, unitamente al numero di 
pagina. Per esempio, Sprite Ed... /Brambilla/2, 
il testo dell’articolo dovrà essere battuto a 
macchina con interlinea di uno spazio e mez- 
zo, massimo due spazi; un margine di almeno un 
centimetro dovrà essere lasciato su entrambi i 
lati dello scritto. 

6 dovranno essere usati fogli in formato UNI 
A4 (cm. 21 x 29,7) e il testo, scritto in carat- 
teri maiuscoli e minuscoli, dovrà occupare una 
sola facciata del foglio. 

7 nel caso il testo comprenda più fogli, questi . 

dovranno essere uniti con un fermaglio o con 
un punto metallico aperto. 

8 avendo intenzione di spedire più di un artico- 
lo, questi dovranno essere inviati separata- 
mente insieme alla rispettiva copia su supporto 
magnetico. 

9 programmi brevi (meno di 20 linee) potranno 
essere inseriti nel testo, mentre programmi 
più lunghi dovranno essere listati separatamente. 

E ESSENZIALE per noi disporre di una copia 
del programma registrata più volte su supporto 
magnetico, su entrambi i lati dello stesso. E prefe- 
ribile usare nastri di buona qualità e di lunghezza 
non eccessiva; la cassetta o il disco dovranno 
essere etichettati con il nome dell’autore, il titolo 
dell’articolo, il computer interessato e soprat- 
tutto le eventuali espansioni richieste. Come sug- 


gerimenti di programmazione si consiglia di usa- 
re le istruzioni “CHR$( x )”, “TAB( x )”, SPC( x 
)”, piuttosto che stringhe di manipolazione del 
cursore. 

Ad esempio, per uno scroll di 5 linee l’istruzione 
“FORI = 1T05:PRINT:NEXT”. è molto più in- 
terpretabile di 5 Q inverse; e, invece di una dozzi- 
na di simboli di cursore a destra, perché non 
usare semplicemente “PRINT SPC (12)”? Un ra- 
pido controllo dei programmi per operare queste 
sostituzioni sarà molto apprezzato da noi e dai 
lettori. 

per maggior chiarezza, all’interno dell’ar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio RE- 
TURN, LIST, RND, PRINT ecc.). Se si desidera 
evidenziare una parola, è preferibile sottolinearla 
piuttosto che scriverla in carattere maiuscolo. 

n gli articoli ed i programmi potranno avere 
qualsiasi lunghezza: da una routine di una 
sola linea fino a programmi molto complessi. 

volendo includere diapositive, queste do- 
vranno avere formato 24x36, o 6x6. 
non prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 

editrici. 

verrà data comunicazione scritta solo in 
caso di accettazione del lavoro. Il materia- 
le non pubblicato non verrà restituito. 

il compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all’interesse del testo e/o del programma (da un 
minimo di L. 50.000 a un massimo di L. 
300 . 000 ) Il pagamento verrà effettuato in caso 
di pubblicazione del lavoro. 

Inviate idee e programmi a: 

SUPERCOMMODORE 
Via Rosellini, 12 
20124 Milano 

e saremo lietissimi di pubblicare i contri- 
buti migliori. 

La Redazione 
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di G. F. Clement 

trad. e adatt. 

di F. Sarclna 




Le regole sono semplici, ma non 
è possibile vincere se non si usa 
il cervello e se non si ha anche 
nn po’ di fortuna. Un gioco in 
versione per VIC 20 e per C16 
Plus/4. 


S iete un fisico atomico che deve svol- 
gere delle importanti ricerche sulle 
particelle subatomiche. Per dimostrare 
la vostra nuova teoria dovete riuscire a 
trovare 25 quark in un cristallo di quar- 
zo ultrasottile. 

Le regole sono piuttosto semplici: si 
sparano degli atomi nel cristallo (che ha 
una larghezza di soli 15 atomi e una 
profondità di 10): se l’atomo non incon- 
tra nessun quark, seguirà una traietto- 
ria rettilinea e uscirà dal cristallo dalla 
parte opposta a dove è entrato, ma se 
l’atomo cozza contro un quark, rimbal- 
zerà ad angolo^ retto, cambiando dire- 
zione di moto. E possibile che un atomo 
incontri diversi quark sulla sua strada, 
e ogni volta la sua traiettoria cambierà: 
potrebbe anche seguire una strada che 
lo riporta a uscire dal cristallo nel punto 
in cui sarebbe uscito seguendo la traiet- 
toria rettilinea. 

Quando pensate di aver individuato un 
quark, potete chiedere conferma delle 
sue coordinate e del suo tipo; se si ri- 
sponde esattamente, si guadagnano dei 
punti, mentre con una risposta errata il 
punteggio diminuirà. All’inizio del gio- 
co, quando si sono utilizzati ancora po- 
chi atomi, i punti ottenibili per ogni ri- 
sposta sono molti. Il numero massimo 
di atomi utilizzabile nella ricerca è di 25, 
quindi conviene usarli con oculatezza. 
Dopo aver sparato il venticinquesimo 
atomo il gioco finisce e vengono mostra- 
ti tutti i quark non ancora trovati. 

Gli atomi sparati nella griglia possono 
essere deflessi da due tipi diversi di 
quark: orientati a sinistra e orientati a 
destra. Se si spara un atomo verso l’alto 
(da sud a nord), un quark orientato a 
sinistra cambierà la direzione dell’ato- 
mo verso sinistra (a ovest), mentre un 
quark orientato a destra defletterà 
l’atomo verso destra. I quark si compor- 
tano come uno specchio a due facce: 


Direzione Direzione di 

d’arrivo deflessione 

QUARK ORIENTATI A SINISTRA 

Nord Est 

Sud Ovest 

Est Nord 

Ovest Sud 

QUARK ORIENTATI A DESTRA 

Nord Ovest 

Sud Est 

Est Sud 

Ovest Nord 

Vi proponiamo due versioni di GRI- 
GLIA ATOMICA: una funzionante sul 


C16 e sul Plus/4 e una per VIC 20 
(quest’ultima ha delle regole di gioco 
leggermente diverse che troverete de- 
scritte più avanti in questo articolo). 
Per digitare la versione per VIC 20 oc- 
corre prima rimuovere ogni espansione 
di memoria eventualmente presente, in 
quanto il programma è scritto per il fun- 
zionamento sulla macchina in configura- 
zione base. 

Spara o chiedi? 

Potete scegliere una fra tre opzioni per 
ogni mossa del gioco: SPARA, CHIEDI 
o FINE: premere S, C o F, a seconda 
dell’opzione desiderata. Se avete scelto 
di sparare un atomo, una lettera dell’al- 
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fabeto apparirà sull’angolo in alto a sini- 
stra della griglia; le lettere vanno da A 
a Y e rappresentano i 25 atomi che 
avete a disposizione. Usate i tasti “mag- 
giore” ( > ) e “minore” ( < ) per spostare 
la lettera intorno al bordo della griglia. 
Una volta raggiunto il punto di entrata 
che avete scelto premete RETURN per 
sparare l’atomo. Esso entrerà nella gri- 
glia, rimbalzerà contro gli eventuali 
quark presenti sulla sua traiettoria e 
uscirà in un’altra posizione, che verrà 
segnata con la medesima lettera. Il pun- 
to di ingresso sarà sempre diverso dal 
punto di uscita, eccetto che nella versio- 
ne per VIC 20 (vedere a proposito il 
paragrafo dedicato). 

Dopo aver sparato un atomo vi si pre- 
senterà nuovamente la scelta fra le tre 
opzioni. Ricordate che le prime risposte 
mettono in gioco un numero di punti più 
alto. Se avete scelto l’opzione CHIEDI, 
il computer vi domanderà dove ritenete 
che sia il quark da voi identificato: in 
che colonna e in che riga; a questo pun- 
to apparirà un puntatore in alto a sini- 
stra: usate i tasti “ < ” e “ > ” per posi- 
zionarlo in corrispondenza del tipo di 
quark (orientato a sinistra oppure a de- 
stra) che pensate di aver trovato. Se 
avete indovinato, il quark apparirà sulla 
griglia, viceversa apparirà il segno di 
una piccola scacchiera. 

L’opzione FINE ferma il gioco e chiede 
se si intende incominciare una nuova 
partita. La ricerca termina anche dopo 
che si è effettuato lo sparo dell’ultimo 
atomo (lettera Y); in ambedue i casi i 
quark non ancora scoperti vengono mo- 
strati sullo schermo in un diverso colo- 
re. 

Strategie 

All’inizio della partita conviene sparare 
gli atomi lungo i bordi della griglia, ove 
solitamente è più facile identificare la 
posizione dei quark. Non sprecate ato- 
mi sparandoli da un punto di uscita già 
conosciuto, in quanto le entrate e le 
uscite sono sempre simmetriche (se si 
spara da un punto A e l’atomo esce in 
B, rientrando dal punto B si uscirà co- 
munque in A). I percorsi sono sempre 
unici: ogni punto di ingresso ha una sin- 
gola uscita, che non è raggiungibile da 
altri punti di ingresso. 

Prestate attenzione al tempo che inter- 
corre fra lo sparo dell’atomo e la sua 
uscita: più lungo è il percorso effettua- 
to, più tempo occorrerà perché esso ri- 
compaia al punto di uscita. Può essere 
utile cercare di ricostruire su un foglio 
di carta i percorsi degli atomi, special- 
mente quando il gioco è abbastanza 
avanti nel suo svolgimento: quark sco- 
perti tramite un determinato atomo 
possono servire per determinare il per- 
corso di altri atomi. 

Anche se è possibile che un atomo ven- 
ga deviato da otto o anche più quark, 
fino a prova contraria è più probabile 
che esso colpisca solamente uno o due 
quark: l’ipotesi più semplice risulta 
spesso essere corretta. 


Potreste ritrovarvi in una situazione 
scomoda: tutti i percorsi degli atomi 
sembrano essere chiari, ma avete sco- 
perto solamente 24 dei 25 quark. In 
questo caso cercate un percorso che 
incrocia se stesso: potrebbe esserci un 
quark nel punto di intersezione. Quan- 
do l’atomo raggiunge questo punto rim- 
balza ad angolo retto e percorre la stra- 
da inversa rispetto a quella che avevate 
inizialmente intuito. 

Non è sempre possibile scoprire tutti i 
quark solo attraverso la logica, ma con 
il ragionamento e un pizzico di fortuna 
riuscirete a risolvere la griglia. 

Note per la versione VIC 20 

Gli atomi sono così piccoli da non essere 
osservabili nemmeno dagli strumenti 
più sofisticati, ma noi sappiamo che esi- 
stono. Come facciamo a saperlo? Os- 
servando le modificazioni che essi por- 
tano ad alcuni fenomeni. 

Nella versione di GRIGLIA ATOMICA 
per VIC 20 dovete tentare di dedurre 
la posizione di cinque atomi disposti ca- 
sualmente in una matrice 8x8, bom- 
bardando questa matrice con flussi di 
elettroni, e osservando come questi 
vengono modificati dagli atomi. L’obiet- 
tivo è utilizzare il minor numero possibi- 
le di raggi elettronici. 

Quando viene dato il RUN al program- 
ma osserverete la matrice spaziale al 
centro dello schermo. Essa appare co- 
me un quadrato di punti, contenente 64 
possibili posizioni per gli atomi. Potete 
mandare un raggio nella matrice, usan- 
do il joystick per muovere il cursore in 
una delle 32 zone del perimetro della 
matrice e premendo poi il pulsante di 
fuoco. 

Un raggio invisibile 

Siccome i raggi di elettroni sono invisibi- 
li, voi non potrete osservare il percorso 
da essi effettuato internamente alla ma- 
trice, ma solamente il risultato finale, 
ovvero il punto di uscita del raggio. 
Occorrerà circa un secondo perché 
l’elettrone completi il suo percorso, do- 
podiché il computer mostrerà il risultato 
con dei rettangoli colorati, corrispon- 
denti al punto di ingresso o di uscita. 
Una volta sparato l’elettrone sono pos- 
sibili tre risultati. Il primo è che l’elettro- 
ne esca dalla matrice in una delle altre 
posizioni del perimetro. Questo è un 
colpo mancato. Il raggio può attraversa- 
re la griglia in modo rettilineo, e uscire 
quindi nel punto simmetricamente op- 
posto, ma se un atomo è vicino al per- 
corso del raggio, esso verrà deflesso co- 
me illustrato in figura 1. Questo potreb- 
be ripetersi diverse volte prima del- 
l’uscita dell’elettrone. Un colpo manca- 
to viene indicato sullo schermo da due 
rettangoli rossi, uno corrispondente al 
punto di entrata e l’altro al punto di 
uscita. Per evitare confusioni fra i vari 
colpi mancati, a ognuno di essi viene 
assegnata una sua lettera, indicata nei 
rettangoli di partenza e di arrivo. 

Un altro possibile risultato è che il rag- 


gio non esca più dalla matrice. Ciò signi- 
fica che un atomo è stato colpito e viene 
indicato sullo schermo da un rettangolo 
porpora in corrispondenza del punto di 
ingresso. L’atomo assorbe tutta l’ener- 
gia del raggio (vedi figura 2). 

Una terza possibilità si ha quando il rag- 
gio esce dalla matrice nella stessa posi- 
zione in cui era precedentemente entra- 
to. Questa situazione viene chiamata ri- 
flessione e può capitare in due casi: se 
due atomi sono ai lati del raggio come 
in figura 3, oppure se un atomo è adia- 
cente all’entrata come in figura 4. Am- 
bedue questi tipi di riflessione sono indi- 
cati da un rettangolo giallo nel punto di 
entrata del raggio. 

Una sola possibilità 

Potrete cercare di indovinare l’esatta 
posizione degli atomi in qualsiasi mo- 
mento, ma attenzione, perché avete so- 
lo un tentativo a disposizione. Se sba- 
gliate, perdete la partita; è così meglio 
aspettare fino a quando si è abbastanza 
sicuri di avere identificato correttamen- 
te le posizioni degli atomi. Il luogo dove 
ritenete vi sia un atomo può essere mar- 
cato tramite il joystick e premendo il 
pulsante di fuoco; se in un punto più 
avanzato del gioco vi accorgete che pre- 
cedentemente avevate sbagliato nel cal- 
colare la posizione di un atomo, potete 
rimuoverlo seguendo la stessa procedu- 
ra. 

Non è un buon metodo posizionare nel- 
la griglia tutti e cinque gli atomi in una 
volta sola: conviene sistemarli uno per 
volta quando ritenete di aver individua- 
to la loro posizione, in modo da poter 
eventualmente prevedere la loro in- 
fluenza sui colpi futuri. Il gioco non ter- 
mina fin quando non avrete posizionato 
il quinto atomo: questo è il momento 
della verità. Il computer controlla se ef- 
fettivamente gli atomi da voi indicati 
corrispondono a quelli presenti sulla gri- 
glia. Se non corrispondono, avete per- 
so. In caso favorevole avete indovinato 
correttamente e vi viene assegnato un 
punteggio corrispondente al numero di 
raggi usati. Questo numero viene indi- 
cato nella parte alta dello schermo, in- 
sieme al punteggio più basso prima rea- 
lizzato. 
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Griglia atomica per C16-Plus/4 


10 COLORO, 1 : COLOR 4 , 1 : POKE1 344 , 1 28 :CLR: KB= 
239: POKE2025, 255: ZZ=1 000 :rem 86 

20 DIMA% (15,10) ,B% (1 5, 10) ,M(50) ,N(50) :DN$ 
="{HOME}{ 6 GIU ' } " : FORA= 1 T033 : DN$=DN$+ 
" {DES}" :NEXT : rem 199 

30 NS = 25 : GOSUB460 : FORA= 1 TOl 5:M(A) =A*2+1 :N 
(A) = 2 : NEXT: FORA=1 6T02 5 : M ( A) = 32 

:rem 241 

40 N (A) = (A- 1 5) * 2+1 : NEXT: FORA=26TO40 : M ( A) = 
31- (A- 26) *2:N ( A) = 22 : NEXT :rem 131 

50 FORA=41 TO50 :M(A)=2:N(A)=21-(A-41) *2: NE 
XT: FORA=OTO3 : READDX (A) , DY (A) : NEXT 

: rem 1 56 

60 FORA=l T07 : READMR (A) : NEXT: DATA- 1 ,0,1,0, 
0,-1 ,0,1 ,27,78,27,78,1 77,57,1 47 

: rem 199 

70 FORA= 1 TO 4 : READMS (A) : NEXT: DATAI 10,109,1 
1 0, 1 09:GOSUB420 :rem 85 

80 FORS = 1 TONS : S$ =CHR$ (64+S) : PRINTDN$" 

[<7> ] {OFF} COSA{ 2 SPAZI } { 2 GIU'} 

{ 6 SIN }ORA? { 2 SPAZI }" :GOSUB590 

:rem 216 

90 GETA$ :ON- (A$="C") -2* (A$="S") -3* (A$="F" 
)GOT0100,270,330:GOT090 :rem 115 

100 PRINT" {HOME} { 3 DES } { GRN } " ; : FORA = 65TO 
79 : PRINTCHRS (A) " : NEXT: POKEKB , 0 

:rem 230 

110 PRINTDNS" [<7>] QUALE { 2 GIU'} 

{ 5 SIN }COL. { 3 SPAZI}" :rem 106 

1 20 GETAS : IFA$<" A"0RA$>"0"THEN1 20 

:rem 96 

130 Xl =ASC (A$) -64:GOSUB560 :rem 211 

140 PRINT" {HOME} { 3 GIU ' } {GRN } " ; : FORA~3TO 
9 : PRINTRIGHT$ ( STR$ (A) , 1 ) ; " { 2 GIU'} 
{SIN}" ; :NEXT: POKEKB, 0 :rem 186 

150 PRINTDNS" [<7>] QUALE { 2 GIU'} 

{ 5 SIN }RIGA{ 2 SPAZI}" :rem 133 

1 60 GETAS: IFA$<" 0"ORA$>" 9"THEN1 60 

:rem 65 

170 PRINT" {HOME} { 3 GIU ' } " ; : FORA=1 TO20 : PR 
INT" {GIU' } {SIN}" ; : NEXT: Yl =VAL (A$ ) +1 : 
W$="t" :rem 182 

180 PRINT" {HOME} { 3 SPAZI }";: FORA=1 T04 : PR 
INTCHRS (MS (A) ) " " ; : NEXT: Z = 4 : Tl =X1 : T2= 
Y1 : GOSUB490 :rem 10 

190 XI =T1 : Yl =T2 :GOSUB560 : IFB% (XI ,Y1) OOAN 
DMR(X) =A% (XI ,Y1 ) THENS=S- 1 : NEXT 

:rem 98 

200 B=54-S*2: IFA% (XI ,Yl ) =MR (X) THENB% (XI ,Y 
1)=1:GOTO230 :rem 54 

210 XI =X1 *2+1 :Y1 =Yl *2+1 : PRINT" [<8> ] " ; : N$ = 
"[<+>]" :GOSUB41 0 :rem 224 

220 PRINTDNS" [<7>] NO { 4 SPAZI }{ 2 GIU'} 

{ 6 SIN}-"B/2" {SIN} " ; : SC=SC-B/2 :GOTO 

260 :rem 140 

230 SC=SC+B:GOSUB570:Xl=Xl *2+1 :Yl=Yl*2+1 : 

PRINT" [<8>] :GOSUB41 0 :rem 117 

240 PRINTDNS" [<7>] "B" {SIN} PTI { 2 GIU'} 

{ 7 S IN } { 7 SPAZI}" :rem 52 

250 IFG=25THENSC=SC+200-S* 5 : PRINT" {HOME} 

{ RVS } "SPC (13) "L’HAI RISOLTO! ":GOSUB59 
0:GOTO360 :rem 74 

260 FORTD=1 TOZZ : NEXT: S=S- 1 :NEXT :rem 73 

270 Z=50 :W$=S$ :GOSUB490 :rem 85 

280 N$=S$:M=INT( (M(X)-1)/2)-(M(X)=2) :N=IN 
T(N (X)/2) + (N (X) =22) :rem 22 



290 GOSUB390 : GOSUB400 : XI =M:Y1 =N:GOSUB390 

:rem 247 

300 ND=3*4TD: IFA% (Xl , Yl ) <>0THEND= ( (A% (XI , 
Yl ) ANDND) / ( 4 TD) ) :rem 1 

310 XI =X1 +DX (D) : Yl =Y1 +DY (D) : IF (Xl > 0 ) AND ( X 
1 <1 6) AND (Yl >0) AND (Yl <11 ) THEN300 

:rem 178 

320 M=X1+DX(D) : N=Y1 +DY (D) : PRINT" {RED }" ; :G 
OSUB400 : PRINT" {YEL}" ;: NEXT :rem 189 
330 PRINT" [<7>] " :FORX=lTOl 5:FORY=lT01 0:X1 
=X:Y1=Y :rem 143 

340 I FA% (Xl , Yl ) <>0ANDB% (Xl ,Y1) =0THENGOSUB 
570 :X1 =X1 *2+1 :Yl =Yl *2+1 :GOSUB410 

:rem 27 

350 NEXTY,X :rem 180 

360 PRINTDNS" GIOCHI { 2 GIU'}{ 6 SINjANCO 
RA": POKEKB, 0 :rem 169 

370 GETAS :ON- (A$="S") -2* (A$="N" ) GOTO! 0,38 
0: GOTO 370 :rem 233 

380 POKE202 5, 0 : PRINT" {CLR } " : END :rem 158 
390 D=- ( (X< = 50) AND ( X>= 4 1 ) ) -2* ( (X>25) AND (X 
<41 ) ) -3* ( (X>= 1 ) AND (X< = 1 5) ) : RETURN 

:rem 104 

400 XI =M*2-2*DX (D) +1 : Yl =N*2-2*DY (D) +1 :GOS 
UB410: RETURN :rem 68 

410 PRINT" {HOME}" ; :FORA=lTOYl :PRINT" 

{GIU' }"; : NEXT: PRINTSPC (Xl ) N$; : RETURN 

:rem 207 

420 NM=25 : FORA=1 TONM: B=MR ( INT (RND ( 1 ) *4)+1 
) :rem 232 

430 C = INT (RND ( 1 ) * 1 5) +1 : D = INT (RND ( 1 ) *10) +1 

:rem 233 

440 IFA% (C,D) O0THEN430 :rem 1 

450 A% (C,D) =B: NEXT: RETURN :rem 21 

460 PRINT" {CLR} [< 8> ]" :FORA=1 TOT 0 : PRINT: PR 

INT: PRINT" { 2 DES}"; : FORB=1 TOl 5 : PRINT 
" {RVS} {OFF}"; :rem 63 

470 NEXTB,A :rem 137 

480 PRINTDNS" {GRN} { 6 GIU ' } {DES } {RVS }C 
{OFF }HIEDI { 2 GIU ' } { 6 SIN}{RVS}S 
{OFF }PARA{ 2 GIU ' } { 5 SIN} {RVS }F{OFF} 
INE { 2 GIU ' } { 4 SIN} [<7>] PUNTI": RETUR 
N :rem 204 


490 

PRINT" {YEL}" :X=1 

: rem 

1 2 

500 

Xl=M(X) :Y1=N(X) :N$=W$ :GOSUB41 0 




: rem 

252 

510 

GETAS :ON- ( A$ = " , " ) - 2* (A$ = ". 

")-3*(A$ 

=CH 


R$ (1 3) ) GOTO 520, 530, 550:GOTO51 0 




: rem 

1 98 

520 

X=X-1 -Z* (X=1 ) : GOTO 540 

: rem 

182 

530 

X=X+1+Z* (X=Z) 

: rem 

208 

540 

N$=" " :GOSUB41 0 :GOTO500 

: rem 

227 

550 

N$= " ":GOSUB410: RETURN 

: rem 

246 

560 

PRINT" {HOME}" ; :FORA=lTO40: 

PRINT" " 

? :N 


EXT: RETURN 

:rem 

1 06 

570 

FORA= 1 TO 4 : I FMR ( A ) =A% (Xl ,Y1 ) THENP=A 




: rem 

51 

580 

NEXT: N$=CHR$ (MS (P) ) : RETURN 

: rem 

1 1 4 

590 

POKEKB ,0:Xl=34:Yl=20:N$=" " 

:GOSUB4! 0 : P 


RINTSC" {SIN} ": RETURN 

: rem 

84 
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Griglia atomica per VIC 20 


1 0 A=RND (-TI) : POKEO , 99 : POKE371 54,127 

:rem 72 

20 POKE36879 ,8:POKE36878,1 5 : DIMA% (9,9) : Z = 
128 : rem 230 

30 R=4:C=4:Rl=4:Cl=4:G=87:H=6:E=7725:F=38 
44 5 : rem 217 

40 FORA=1 T05 :rem 210 

50 B=INT (RND ( 1 ) *8)+l : 0 = I NT ( RND ( 1 ) *8)+1 

:rem 106 

60 IFA% (B ,0) THEN50 : rem 253 

70 A% (B,0) =1 : NEXT: PRINT" {CLR} RAGGI : "V" 

{ 5 SPAZI }REC: "PEEK (0) :rem 88 

80 PRINT" { HOME } { GIU ' }{BLU}U* [<R>] 

{15*} [ <R> ] * I : rem 28 

90 print'Mgrn}zTblu}-_"tab (1 8) ’MgrnJz 
{BLU}^_ :rem 143 

100 PRINT" [<Q>]_^+{ 15 _M + *[<W>] : rem 20 

110 FQRA=1TQ8: PRINT"- {DESj-W W W W W W W 
W-{DES}- : rem 82 

120 PRINT" Z "TAB(18) "-_{DES K" : NEXT 

:rem 67 

130 PRINT" {SU} [<Q>]^+{ 15 *}+M<W>] 

:rem 168 


1 40 PRINT"- {GRN}Z{BLU}-"TAB (1 8) "- {GRN}Z 



{BLU}- 

: rem 

1 87 

1 50 

PRINT"J* t<E>] { 15 * } [ <E> ] * K 

: rem 

252 

1 60 
170 

IFLTHEN660 

PRINT" {PUR} {RVS} {OFF} {BLU} 

: rem 

COLP 

61 


{ 2 SPAZI }{ RED }{RVS} {OFF} {BLU} MANC 
{ 2 SPAZI }{YEL}{RVS} {OFF}{BLU} RIF 



{HOME} 

: rem 

39 

1 80 

P = PEEK (371 52) ANDl 28 : IFP= 

0THENC=C+1 




: rem 

224 

1 90 

P=PEEK (371 51 ) 

: rem 

1 58 

200 

IF (PAND8) =0THENR=R+1 

: rem 

166 

210 

IF (PANDI 6) =0THENC=C-1 

: rem 

186 

220 

IF (PAND4) =0THENR=R-1 

: rem 

166 

230 

IFR<0THENR=0 

: rem 

208 

240 

IFR>9THENR=9 

: rem 

229 

250 

ifc<othenc=o 

: rem 

1 80 

260 

I FC > 9THENC = 9 

: rem 

201 

270 

D=E+44*R+C+C 

:rem 

74 

280 

POKEE+44*Rl +C1 +C1 ,G: POKEF+44*Rl +C1 +C1 


,H 

: rem 

1 60 

290 

Ri =R:C1 =C:G=PEEK(D) : H=PEEK ( F+44 *R+C+C 


) 

: rem 

185 

300 

POKEE+44*R+C+C,43: POKEF+44*R+C+C , 5 




: rem 

1 28 

310 

IF ( PAND 3 2 ) THEN 1 80 

: rem 

1 96 

320 

IFG=32THEN470 

: rem 

21 5 

330 

IFG=81 THEN780 

: rem 

224 

340 

IFG087THEN1 80 

: rem 

30 

350 

G=81 :H=1 : A=240:GOSUB81 0 

: rem 

22 

360 

1 = 1 + 1 : IFA% (R,C) THENL=L+1 

:rem 

101 

370 

POKED , 81 : POKED + 30720 , 1 

: rem 

21 1 

380 

IFK5THEN 1 80 

: rem 

172 

390 

IFL< 5THEN660 

: rem 

179 

400 

PRINT" { 21 GIU 1 } { 4 SPAZI }HAI INDOVIN 


ATO! { 2 SPAZI } {SU}" 

: rem 

73 

410 

FORA= 1 TO 1 0 

: rem 

47 

420 

FORB= 250TO24 0STEP- 1 : POKE36876 ,B : NEXT 



: rem 

1 96 

430 

FORB=240TO250 : POKE36876 , 

B : NEXT 




: rem 

43 

440 

NEXT: POKE 36876 , 0 

: rem 

1 70 

450 

IFPEEK (0) >VTHENPOKE0 , V 

: rem 

114 



460 

GOTO750 

: rem 

1 1 1 

470 

A=225:GOSUB81 0 

: rem 

5 

480 

P=R:Q=C:DR=0:DC=0:T=0:TI$=" 

000000 

" : V= 


V+1 : PRINT" {HOME} { 6 DES}"V 

: rem 

41 

490 

IFR=0THENDR= 1 

: rem 

30 

500 

IFR=9THENDR=- 1 

: rem 

76 

510 

IFC=0THENDC=1 

: rem 

249 

520 

I FC = 9THENDC = - 1 

: rem 

48 

530 

GOTO 560 

: rem 

108 

540 

IFP>0ANDP< 9ANDQ>0ANDQ< 9THEN560 

: rem 

1 1 5 


550 Z=Z+1 :G=Z : H=2 : GOSUB640 : U=44*P+Q+Q : POK 
EE+U ,G : POKEF+U , H : GOTO280 :rem 59 

560 RR=P+DR:CC=Q+DC :rem 141 

570 IFA% ( RR ,CC ) = 1 THENG = 1 60 : H = 4 : GOSUB64 0 : G 
OTO280 :rem 68 

580 IFDRTHENN=1 :M=0:GOTO600 :rem 170 

590 M=1:N=0 :rem 78 

600 S=0: IFA% (RR+M,CC+N) = 1 THENDR=-M :DC=-N: 

S=1 :rem 123 

61 0 IFA% (RR-M,CC-N) = 1 THENDR=M : DC=N : S=S+1 

:rem 170 

620 IFS=20R (SANDT=0) THENG=1 60 :H=7:GOSUB64 
0 :GOTO280 :rem 99 

630 P=P+DR : Q=Q+DC : T=1 :GOTO540 :rem 10 

640 IFTK60THEN640 :rem 49 

650 RETURN :rem 123 

660 PRINT" { 21 GIU ' } { 2 SPAZI }NON HAI IND 
O VI NATO {SU}" : rem 27 

670 FORA= 1 TO20 : rem 56 

680 FORB=220- ATOl 60- ASTEP- 8 : POKE36876 , B : N 

EXT : rem 173 

690 FORB=1 60- ATO220- ASTEP8 : POKE36876 ,B:NE 
XT : rem 129 

700 NEXT: POKE36876 , 0 : rem 169 

710 FORR= 1 TO 8 : FORO = 1 TO 8 :rem 199 

720 G=87 : H=6 : IFA% ( R,C) THENG=81 :H=1 

: rem 206 


730 

POKEE+44*R+C+C,G:POKEF+44*R+C+C,H 

: rem 

1 22 

740 

NEXT: NEXT 

: rem 

83 

750 

PRINT" { 5 SPAZI }PREMI{ 2 SPAZI }FIRE 


{ 5 SPAZI } { SU } " 

: rem 

161 

760 

IF (PEEK (371 51 ) AND32) THEN760 

: rem 

248 

770 

RUN20 

: rem 

245 

780 

G=87:H=6:A=235: GOSUB8 1 0 

: rem 

44 

790 

1 = 1-1 : IFA% (R,C) THENL = L- 1 

: rem 

112 

800 

GOTO180 

: rem 

1 06 

810 

POKE36876 , A: FORA=0TO99 : NEXT: 

POKE36876 


, 0 : RETURN 

: rem 

141 
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di P. Manna 




Da qualche tempo in qua i video- 
game sono calati nelle classi- 
fiche dei programmi preferiti 
per home computer, rimanendo 
esclusivamente destinati alle sa- 
le da gioco: l’hobbista, che com- 
prato il computer comincia a ca- 
pire che ha in mano ben più di 
un giocattolo, non si accontenta 
più di manovrare joystick per ab- 
battere astronavi, ma con la 
macchina vuole un dialogo più 
diretto. 


E cco allora prendere piede il gioco 
“adventure”, che, in un’aura da fa- 
vola, ci conduce attraverso luoghi strani 
e meravigliosi, parlandoci e risponden- 
do alle nostre domande e ai nostri ordi- 
ni: il rapporto con la “macchina pensan- 
te” si fa più diretto e il computer sem- 
bra comprendere ciò che vogliamo da 
lui. 

A un’assortimento notevole di program- 
mi commerciali fa riscontro una, certa 
stasi tra i programmi hobbistici pubbli- 
cati: nessuno tra i programmi che abbia- 
mo avuto occasione di vedere adopera- 
va uno schema che si potesse definire 
“universale”, cioè che si svincolasse dal- 
la particolare avventura; programma e 
racconto erano mescolati e non si capi- 
va dove finiva uno e iniziava l’altro. 

L’idea 

Da tutto ciò è scaturita l’idea di costrui- 
re un programma “modulare” per le av- 
venture, cioè un programma che giras- 
se raccontando un’avventura diversa al 
mutare dei dati, ma che fosse nettamen- 
te distinto da questi, configurandosi vol- 
ta per volta secondo le intenzioni del 
programmatore. Ovviamente, un tale 
programma avrebbe dovuto avere una 
flessibilità tale da adattarsi a qualsiasi 
idea avesse da sviluppare il “romanzie- 
re”: quindi il primo problema era “Quali 
e quante strutture può avere un pro- 
gramma di avventura?”. 


Proprio nell’affrontare questo dilemma 
ecco venire in aiuto il numero 61 di Bit 
con i provvidenziali articoli di Colombini 
e Lo Cicero: anche se, come si vedrà, 
le soluzioni adottate sono in buona par- 
te diverse da quelle suggerite in quegli 
articoli, questi hanno avuto il merito di 
chiarirci le idee e di porci in condizione 
di risolvere i problemi organicamente, 
avendone un’idea precisa. 

Punti focali della realizzazione del pro- 
gramma sono stati l’uso intensivo del- 
l’istruzione RESTORE del BASIC e la 
manipolazione di quello che abbiamo 


definito “vettore delle condizioni”. 
L’istruzione RESTORE, presente in 
pressoché tutti i BASIC, serve, come si 
ricorderà, a ripristinare la lettura dei 
DATA dall’inizio: nel BASIC V. 3.5 esi- 
ste anche l’estensione RESTORE line- 
num, che permette la lettura dei DATA 
a partire da un certo numero di linea; 
non solo, ma linenum può essere anche 
un’espressione calcolata, quindi al va- 
riare del parametro < exp > stessa 
istruzione RESTORE <exp> può pun- 
tare in momenti successivi a diversi 
gruppi di DATA. Come si sia sfruttata 
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questa possibilità è quindi ovvio: secon- 
do la “stanza” e l’azione compiuta, la 
RESTORE punta a un diverso gruppo 
di azioni permesse e conseguenze, rea- 
lizzando così una struttura “ad accesso 
pseudo-casuale”: pseudo poiché in ef- 
fetti l’istruzione scorre tutto il program- 
ma alla ricerca della linea specificata, 
ma tutto questo è trasparente all’utente 
e comunque più veloce che leggere tutti 
i dati con semplici READ, fermandosi 
solo quando si incontra il gruppo giusto. 
Abbiamo preferito questo tipo di strut- 
tura a quello basato su matrici di strin- 
ghe e numeri, più veloce, per questioni 
di occupazione di memoria: è inutile du- 
plicare i dati, e oltretutto il tipo di gioco 
non soffre particolarmente per una 
scarsa velocità. Come si vedrà, si è uti- 
lizzato lo stesso sistema per analizzare 
il vocabolario e per altre funzioni del 
programma meglio analizzate in segui- 
to. 

Il vettore delle condizioni 

Un altro punto focale del programma è 
la manipolazione di un vettore CD%(I), 
chiamato “delle condizioni”: ma che co- 
sa si intende per “condizione”? 11 pro- 
gramma permette a una condizione di 
influenzare qualsiasi cosa, dalla descri- 
zione di una “stanza” alle possibili azioni 
da compiere, alle conseguenze della 
stessa azione sotto condizioni diverse: 
sotto queste premesse è chiaro che il 
significato di “condizione” è legato, più 
che ad altro, alla fantasia del program- 
matore. Una condizione può essere ad 
esempio la posizione di un oggetto, as- 
sumendo come valore la “stanza” in cui 
deve trovarsi l’oggetto stesso, o può es- 
sere l’aver compiuto o meno un’azione, 
o ancora l’esistenza o la posizione di un 
personaggio: vedremo poi come il pro- 
gramma di esempio usa le condizioni. Il 
programma riserva per sé le condizioni 
CD%(0) e CD%(1), che rappresentano 
rispettivamente la “vita” del giocatore, 
cioè la sua possibilità di continuare il 
gioco (valore normale 1, lo 0 indica il 
termine del gioco con la routine di scon- 
fitta) e la vittoria del giocatore stesso 
(valore normale 0, l’I termina il gioco 
con la routine di vittoria). Dato che nel 
programma il vettore è dimensionato a 
50, restano 49 elementi (non dimenti- 
chiamo l’elemento 0!) definibili da pro- 
gramma, sia durante lo svolgimento sia 
all’inizio: sempre all’inizio c’è la possibi- 
lità di definire più condizioni casuali tra 
due valori specificati, dando quindi un 
tocco nuovo a ogni giro di programma; 
quindi, ad esempio, il Cavaliere Nero si 
troverà nel Castello, ma magari proprio 
nella stanza della Principessa! 

Modifiche e adattamenti 

Il programma generico è descritto det- 
tagliatamente nell’analisi linea per li- 
nea, e prima di descrivere il programma 
sviluppato come esempio, che usa la 
metà delle effettive possibilità del pro- 
gramma generico, vorremmo aggiunge- 
re qualche idea su ciò che il programma 


attualmente non supporta e che potreb- 
be facilmente essere aggiunto, miglio- 
rando la qualità del programma stesso 
e ampliandone le possibilità: 

a) per non appesantire troppo l’occu- 
pazione di memoria, precludendo quin- 
di la possibilità dell’uso da parte di chi 
possiede il C16, il programma, non fa 
uso di grafica ad alta risoluzione, ma 
solo di quella permessa dai caratteri se- 
migrafici Commodore: inoltre, il carica- 
mento di disegni da nastro avrebbe por- 
tato a tempi inaccettabili. Per chi ha 
abbastanza memoria, e i dischi, può 
però essere interessante attuare questa 
possibilità: basterà, al momento della 
descrizione, aggiungere anche l’istruzio- 
ne o meno di caricare un disegno da di- 
sco. 

b) in caso di risposta troppo lenta la 
routine di input temporizzato porta di- 
rettamente alla routine di sconfitta: per 
movimentare il gioco si potrebbe invece 
andare a una routine che si occupasse 
di variare una condizione specificata (ad 
esempio 1’avvicinarsi di un nemico), 
dando così qualche speranza al povero 
giocatore, che non sa cosa rispondere 
in casi di emergenza. 

c) i movimenti dei personaggi che il pro- 
grammatore può sviluppare sono at- 
tualmente fissi, cioè non ne é previsto 
un movimento autonomo indipendente 
da ciò che fa il giocatore e men che 
meno un movimento intelligente; un al- 
tro punto interessante potrebbe essere 
questo: permettere a un personaggio 
(rappresentato ovviamente da una con- 
dizione) di variare la sua posizione in 
maniera casuale (o addirittura finalizza- 
ta) durante i movimenti del giocatore. 
Quest’ultimo potrebbe quindi continua- 
re a inseguire un personaggio che sem- 
bra irraggiungibile. 

d>i“ buoni” programmatori potrebbero 
voler aggiungere anche una funzione di 
“aiuto”, che, a richiesta del giocatore 
sperduto, fornisca suggerimenti sulla ri- 
soluzione del problema in corso: soluzio- 
ne particolarmente apprezzata dai gio- 
catori! 

e) funzione facilissima da aggiungere è 
il calcolo del tempo di gioco: aggiungen- 
do 5 minuti “fittizi” a ogni mossa e con- 
trollando che la risoluzione avvenga en- 
tro un dato periodo (stile “Transylva- 
nia”, tanto per intenderci). 

f) questa è un’idea particolarmente de- 
dicata ai possessori del C16: anche se 
il programma generico occupa poco più 
di 5 Kbyte, una descrizione particola- 
reggiata di una stanza, delle azioni in 
essa possibili e delle relative conseguen- 
ze può portare via ben più di 1 Kbyte, 
limitando quindi le stanze possibili da 
tenere in memoria. 

L’idea è quindi questa: dato che il pro- 
gramma base è all’inizio ed è fisso, si 
potrebbe modificarlo in manierala cari- 
care in momenti successivi solo le stan- 
ze direttamente interessate al gioco in 


quel momento. Come? Se avete un C16 
e lo conoscete abbastanza, questi sono 
trucchetti che dovreste sapere a mena- 
dito: il BASIC Commodore permette di 
caricare un programma a partire dal 
punto dove è stato salvato e non modifi- 
ca le variabili al caricamento di un altro 
programma, quindi basta “ingannare” il 
sistema operativo al momento del SA- 
VE... e se siete dei bravi commodoristi, 
ora dovreste cavarvela da soli (VIC 20 
docet). 

Il programma Macchina del 
tempo 

Realizzato quindi il programma generi- 
co si è posto il problema di illustrarne 
l’uso con un programma completo: per 
evitare la sensazione di deja-vu, data 
dalle classiche favole di ambiente me- 
dioevale, abbiamo cercato un racconto 
diverso, che è stato trovato in quel clas- 
sico della fantascienza dei primordi che 
è il romanzo di H.G. Wells “La macchi- 
na del tempo”. Per chi dà uno sguardo 
al programma, e soprattutto per chi 
vuole implementarlo così com’è, tenia- 
mo a precisare che l’idea originale pre- 
vedeva una trentina di stanze, ridotte 
poi a una ventina, data la notevole pro- 
lissità impiegata nel descriverle e conse- 
guente “stanchezza da programmazio- 
ne”: 30 Kbyte non sono decisamente 
pochi per un programma che voleva es- 
sere “dimostrativo”! 

Per questa ragione nel vocabolario tro- 
verete vocaboli non usati e nelle condi- 
zioni vi saranno salti di numero: inizial- 
mente la storia doveva essere diversa. 
Abbiamo preferito lasciare lì queste in- 
congruenze per permettervi di sbizzar- 
rirvi a modificare la storia come più vi 
aggrada: forse il finale è un po’ deboluc- 
cio (non stupitevi, quello di Wells è an- 
che peggio) e bisognoso di un po’ di 
carica, ma eravamo talmente saturi di 
questa storia da non riuscire a mettervi 
quel pizzico di fantasia da permettergli 
di finire nel più classico degli stili “e 
vissero felici e contenti”. 

Come sono usate le condizioni 

Come accennato prima, il programma 
completo usa la metà delle possibilità 
offerte da quello generico: ad esempio, 
non viene usata l’opzione che permette 
di definire condizioni iniziali casuali, 
quindi il gioco è identico ogni volta che 
viene fatto girare; una volta risolto non 
presenta più alcuna attrattiva (ammes- 
so che vi ricordiate tutte le azioni da 
compiere e nell’ordine giusto, chiara- 
mente). Vediamo quindi le condizioni 
definite e usate dal programma (ricor- 
date che la 0 e la 1, che rappresentano 
rispettivamente la vita e la vittoria del 
giocatore, sono fisse!): 

2) il giocatore è (valore 1) o è stato 
(valore 2) nel futuro; 

3) il giocatore ha con sé fiammiferi 
(vai. 1) e ne ha acceso uno (vai. 2); 

4) il giocatore ha con sé i comandi del- 
la macchina (vai. 1) o questi sono 
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sulla macchina stessa (vai. 2); 

6) il giocatore ha un fiore; 

7) il giocatore ha una sbarra di ferro; 

8) la macchina è stata nascosta; 

9) è possibile entrare nella statua; 
lOj il giocatore ha mangiato; 

11) la ragazza è stata salvata (vai. 1) 
ed è stata portata nel viaggio di 
ritorno (vai. 2) oppure è morta (vai. 
3). 

Alcune di queste condizioni (ad esempio 
il possesso di oggetti) sono visualizzate 
quando il giocatore chiede l’inventario, 
altre rimangono celate nel programma, 
pur influenzandolo (ad esempio, non 
viene indicato se un fiammifero è acce- 
so, anche se ovviamente, se il luogo è 
buio, con la sua luce vengono rivelati 
più particolari). 

La struttura dei dati rispecchia lo sche- 
ma generale, ed è da notare come per 
una stessa azione vi possano essere più 
conseguenze, in dipendenza delle varie 
condizioni: ad esempio, si può notare 
come nella stanza definita a partire dal- 
la riga 22000 vi siano ben quattro con- 
seguenze per l’azione corrispondente a 
“vai a ovest” (di cui due “mortali”). Per 
chi non volesse scervellarsi ad analizza- 
re il listato per scoprirne la soluzione 
ecco qui alcuni suggerimenti: 

1) salireste mai su un veicolo che non 
sapete come fermare? (N. B. ironia 
della sorte, questo articolo è stato 
scritto durante una convalescenza 
da incidente motociclistico!) 

2) sempre a proposito di auto, lasce- 
reste mai le chiavi nel cruscotto in 
una città che non conoscete? 

3) uno spuntino ci sta sempre bene 

4) ci sono persone che non sopporta- 
no di essere svegliate di colpo... 

5) ... e altre con occhi particolarmente 
sensibili 

6) non è detto che un computer sap- 
pia fare tutto: anche lui ha i suoi 
limiti, per stupidi che possano esse- 
re.... 

7) un colpo ben assestato a volte fa 
molto.... 

8) .... e altre fa troppo!! 

9) gli amici pensano sempre a uno 
scherzo, e dire che basta poco per 
convincerli.... 

Precisiamo inoltre che “lasciare” un og- 
getto in un posto vuol dire, nella mag- 
gioranza delle volte, abbandonarlo defi- 
nitivamente, ma talvolta è necessario 
non tenerselo troppo stretto... E ora, 
buon divertimento! 


Plus/4 

ADVENTURE 

Prototipo di sezione fissa 


10-30 

40-90 

100-110 

120-170 


180-190 

200-210 

220-230 

240-280 

290-320 

330-340 

350-380 

390-420 


430-450 

460-500 

510-540 

550 

560-610 

620-670 

680 

690-720 

730-750 

760-770 

780-830 

840-860 

870-930 

940-1140 

1150-1250 

1260-1370 

1380-1410 

1420-1430 

1440-1480 

1490-1550 


Pulizia schermo e variabili 

Legge l’introduzione, dividendola in varie schermate: come anche 
altrove, il carattere “ @ ” è usato per indicare la fine dei dati 
Dimensiona il vettore delle condizioni e fissa le prime 2 
Legge le condizioni fissate inizialmente: se al posto di una condizione 
positiva trova due numeri negativi, quella condizione avrà un valore 
casuale positivo tra i valori assoluti del 2° e del 1° 

Legge la stanza iniziale (fissa) 

Qui inizia il loop di gioco principale, che terminerà solo al variare 
delle condizioni 0 e 1 (vittoria o sconfitta) 

Fissa il puntatore dati alla descrizione della stanza corrente 
Legge la descrizione della stanza e la stampa 
Legge le descrizioni condizionate: se le condizioni sono vere, le stam- 
pa 

Legge il flag di input temporizzato (1= tempo limitato, 0=input nor- 
male) 

Va a fondo pagina, pulisce la memoria da stringhe inutili e stampa 
il messaggio di input 

Se l’input è temporizzato, avvisa il giocatore, accetta l’input con un 
limitato editing e se è temporizzato, controlla che non si sia andati 
fuori tempo 

Elimina spazi all’inizio e alla fine, controlla se è stato insultato e se 
è stato chiesto l’inventario 
Cerca di isolare il verbo 
Cerca di isolare il nome 

Se il verbo è “salva” o “carica”, va alle routine relative 
Cerca nel vocabolario il nome, controllando i sinonimi 
Cerca nel vocabolario il verbo 

Se la ricerca ha avuto successo, l’azione richiesta è la numero (codi- 
ce verbo) * 100 + (codice nome) 

Controlla se questa azione è permessa sempre 
Controlla se è permessa sotto condizione e se la condizione è verifi- 
cata 

Se i controlli falliscono, va alla routine apposita, poi ricomincia 
Legge e stampa le conseguenze e aggiorna stanza e condizioni 
Fine del loop principale: va alle routine di vittoria o sconfitta in caso 
di uscita 

Routine di inventario: va a leggersi le stringhe da stampare e se le 
condizioni relative sono vere, le stampa 
Schermata e routine di sconfitta 
Schermata e routine di vittoria 
Controlla se il giocatore lo ha insultato e reagisce 
Stampa un messaggio scelto a caso tra quelli di incomprensione 
Stampa un messaggio scelto a caso tra quelli di impossibilità (voca- 
boli riconosciuti, ma azione non permessa) 

Carica una situazione salvata precedentemente con il nome specifi- 
cato (cioè la stanza e i valori delle condizioni) 

Salva la situazione con il nome specificato su cassetta, memorizzan- 
do la stanza attuale e i valori delle condizioni, poi chiede se si vuole 
continuare o finire 


Prototipo di sezione variabile 
Struttura dei dati 


2000-2999 

3000-3999 

4000-4999 

5000-5999 


6000-7999 


Risposte in caso di incomprensione 

DATA N. risposte, “risposta 1”,..., “risposta N” 

Risposte in caso di impossibilità 

DATA N. risposte, “risposta 1”,..., “risposta N” 

Possibili insulti da controllare 

DATA N. insulti, “insulto 1”,..., “insulto N” 

Introduzione 

DATA “introd. 1”,..., “introd. N”,@ 

DATA N. condiz. da prefis., Ind. cond. 1, (-) cond. 1, (-cond. l/a), 
..., I. cond. N, (-) cond. N, (-cond. N/a) 

DATA Stanza iniziale 
Vocabolario dei nomi 

DATA N. sinonimi-1, “sinonimo 1-1”,..., “sinonimo 1-N” 

i 

i 

DATA N. sinonimi-N, “sinonimo N-l”,..., “sinonimo N-N” 

DATA 0 
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8000-8999 Vocabolario dei verbi 

Struttura identica a vocabolario dei nomi 
9000-9999 Inventario 

DATA “Nome condizione 1”, I. cond. 1, cond. 1,..., “Nome condiz. 
N”, I. cond. N, cond. N,@ 

11000-59999 Stanze: 1 ogni 1000 linee di programma 
così suddivise 

000-099 DATA “Descriz. 1”,..., “Descriz. N”,@ 

100-199 DATA “Descr. condiz. 1”, I. cond. 1, cond. 1,..., “Descr. cond. N”, 
I. cond. N, cond. N,@ , Flag di input tempor. (1 o 0) 

200-299 Data N. azioni permesse, Azione 1,..., Azione N 
300-399 DATA N. az. perm. condiz., Az. 1, I. cond. 1, cond. 1,..., Az. M, I. 
cond. M, cond. M 

400-499 Conseguenze azioni: 1 ogni 10 linee 

DATA “Conseg. az. 1”,...,@ , nuova stanza, N. di condiz. mutate, 
I. cond. 1, cond. 1,...,1. cond. K, cond.K 


DATA “Conseg. az. N+M”,... 


La macchina del tempo per Plus/4 


10 

REM ** INIZIA ** 

: rem 

1 77 

20 

CLR:COLORO, 2,7 :COLORl ,1 :COLOR4,15, 

5 



: rem 

20 

30 

SCNCLR: RESTORE5000 

: rem 

75 

40 

REM **LEGGE L’INTRODUZIONE** 

: rem 

1 1 3 

50 

DO: READ A$ 

: rem 

i 79 

60 

IFA$<>"@ "THENPRI NTA$ 

: rem 

1 21 

70 

LI =LI+ 1 : IFLI =22THENPRINT: PRINT" 



{FLASH ON } PREMI UN TASTO ";: 

GETKEYTTS : 


SCNCLR: LI =0 

: rem 

230 

80 

LOO PUNTI LA$="@ " 

: rem 

84 

90 

F0RJ=LIT023: PRINT: NEXT: PRINT 

ti 




{FLASH ON } PREMI 

UN TASTO " ; : GETKEYTTS : 


SCNCLR 

: rem 

1 21 

1 00 

DIMCD% (50) 

: rem 

205 

1 1 0 

CD% (0) =1 :CD% ( 1 ) 

=0 :rem 

2 

1 20 

REM ** LEGGE LE 

COND. INIZIALI** 

: rem 

i 91 


1 30 READCN: DOUNTI LCN=0 : READI : READCX : IFCX> 



=0THENCD% (I) =CX:GOTOl 60 

2 rem 

1 42 

1 40 

READCY 

2 rem 

77 

1 50 

CD% (I) =INT(RND(TI) * (-CX+CY+1) +CY) 




2 rem 

84 

1 60 

CN=CN-1 

2 rem 

84 

170 

LOOP 

2 rem 

210 

1 80 

REM **LEGGE LA" STANZA" INIZ. 

★ * 




2 rem 

i 47 

190 

READSZ 

2 rem 

99 

200 

REM **LOOP DI GIOCO PRINCIPALE** 




2 rem 

6i 

210 

DOWHI LECD% ( 0 ) = 1 ANDCD% ( 1 ) =0 

2 rem 

1 68 

220 

RESTO RE (1 0000+SZ*! 000) 

2 rem 

1 89 

230 

LI =0 

2 rem 

1 51 

240 

REM **LEGGE LA DESCRIZIONE** 

2 rem 

82 

250 

READ A$ : DOUNTI LA$ = " @ " 

2 rem 

1 51 

260 

PRINTAS 

2 rem 

1 38 

270 

LI =LI+1 : IFLI=22THENPRINT: PRINT" 



{FLASH ON } PREMI UN TASTO ";: 

GETKEYTTS 


: SCNCLR: LI=0 

2 rem 

24 

280 

READAS : LOOP 

2 rem 

1 43 

290 

DO : READA$ : IFA$ = "@ "THEN320 

2 rem 

1 56 


300 READI : READCN: IFCNOCD% (I) THEN320 

:rem 189 

310 PRI NTA$ : LI =LI + 1 : IFLI =22THENPRINT: PRIN 
T" {FLASH ON }PREMI UN TASTO " ; : GETKEYT 
T$ : SCNCLR: LI =0 :rem 63 


320 

LOOPUNTI LA$=" @ " 

2 rem 

1 29 

330 

REM **LEGGE IL FLAG DI 

INPUT** 

2 rem 

82 

340 

READFT 

2 rem 

77 

350 

REM ** INPUT* * 

2 rem 

i 80 

360 

FORI =LIT024 : PRINT: NEXT 

2 rem 

228 

370 

XX=FRE (0) 

2 rem 

229 

380 

PRINT" {RVS}COSA DEVO FARE? {OFF}"; 

2CR 


$=" " :RR$=" " 

: rem 

243 

390 

IFFTOOTHENTI$ = " 00 0000" 

: VOL8 : FORI = 

ITO 


3 : SOUND 1 ,643,30: SOUND 1 , 

770, 30:NEXT 

2 PR 


I NT" {FLASH ON} PRESTO! ! {FLASH ON}"; 

: rem 142 

4 00 DO: PRI NT" {FLASH ON}-'' tL A£H ON}";:GETK 
EYCRS : IFCR$< >CHR$ (1 3 ) THENRR$ = RR$+CR$ : 
PRINT" {SIN}"CR$; : rem 188 

41 0 IFCR$=" {SIN } "ORCR$=CHR$ ( 20 ) THENRR$=LE 
FT$ (RR$ ,LEN (RR$ ) -2) : PRINT" {DES} 

{ 2 SIN}"; : rem 2 

420 LOO PUNTI LCR$=CHR$ (1 3) : IFFT< >0ANDVAL (T 
1$) >20THEN980 : rem 77 

430 DOWHILELEFTS (RR$ , 1 ) =" " : RR$=RIGHT$ (RR 
$ ,LEN (RR$) -1 ) :LOOP :rem 217 

440 DOWHI LERIGHT$ (RR$ , 1 ) =" " : RR$=LEFT$ (RR 
$ , LEN ( RR$ ) - 1 ) : LOOPrGOSUBi 260 : rem 93 

450 IFRR$ = " I N VENTAR IO" THENGOSUB 8 7 0 : GOTO 3 7 
0 :rem 203 

460 REM * *CERC A IL VERBO** : rem 151 

470 VB$=" " : J = 0: FORI = ITO LEN (RR$) :rem 60 

480 IFMID$(RR$,I,1)=" "THENJ=I-1 : I=LEN (RR 
$) :rem 170 

490 NEXT: IFJ=0THENGOSUB 1 380:GOTO370 

: rem 228 

500 VB$=LEFT$ (RR$,J) : rem 108 

510 REM * *CERC A IL NOME** : rem 68 

520 NM$ = " " : J = 0 : FORI =LEN (RR$ ) TO 1 STEP- 1 

: rem 213 

530 IFMID$ (RR$ ,1,1) =" "THENJ = I : I = 1 

: rem 129 

540 NEXT: NM$=RIGHT$ (RR$ ,LEN (RR$ ) -J) 

:rem 100 

550 FQ=- (VB$="CARICA") - (VB$=" SALVA" ) *2:ON 



FQGOTOl 440,1 490 

2 rem 

1 96 

560 

REM **CERCA NEL VOCAB. IL 

NOME** 

2 rem 

1 93 

570 

RESTORE6000 : NN = 0 : 1=0 

2 rem 

i 85 

580 

READSN: DOUNTI LSN = 0: 1 = 1 + 1 

2 rem 

38 

590 

FORJ = 1 TOSN : READN $ : IFNM$ = N$THENNN = 

I 2 J = 


SN:SN=0: NEXT: GOTO 61 0 

2 rem 

254 
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600 NEXT: READSN : rem 204 

610 LOOP: IFNN=OTHENGOSUB1 380:GOTO370 

:rem 43 

620 REM * *CERC A NEL VOCAB. IL VERBO** 

: rem 1 3 

630 RESTORE8000 : NV=0 : 1=0 : rem 192 

640 READSV: DOUNTI LSV= 0 : 1=1 + 1 : rem 51 

650 FORJ = l TOSV : READV$ : IFVB$=V$THENNV=I : J = 
SV : SV=0 : NEXT: GOTO670 :rem 46 

660 NEXT: READSV : rem 218 

670 LOOP: I FNV= OTHENGOSUBl 380:GOTO370 

: rem 57 

680 AZ=NV* i 00+NN : rem 156 

690 REM * *E ' UN'AZIONE PERMESSA?** 

: rem 198 

700 RESTORE (1 0200+SZ*1000) : rem 194 

71 0 FZ = 0 : READNP: IA = 0 : DOUNTILNP=0 : READAP : I 
A=IA+1 : IFAP=AZTHENNP= 1 :FZ=1 : rem 177 

720 NP=NP-1 : LOOP: IFAP=AZTHEN770 :rem 227 
730 REM **E ' PERMESSA CON CONDIZIONE?** 

: rem 3 

740 READNC : DOUNTI LNC = 0 : READAP : IA = IA+1 : REA 
DJ : READW : IFCD% (J) =WANDAP=AZTHENNC = 1 



:FZ=1 


: rem 

1 86 

750 

NC=NC- 1 : LOOP 


: rem 

205 

760 

REM **NON E' 

RICONOSCIUTA** 

: rem 

1 9 

770 

IFAZOAPORFZ 

= OTHENGOSUBl 420: 

GOTO 370 




: rem 

4 

780 

REM ** LEGGE 

LE CONSEGUENZE** 

: rem 

1 02 

790 

RESTORE (1 0 390+SZ*1 000 + IA*1 0) 

: rem 

21 


800 PRINT: DO : READA$ : IFA$< >"@"THENPRINTA$ 

:rem 250 

810 LOOPUNTI LA$ = " @ " : READ Si : IFS 1 < >0THENSZ = 
Si : rem 243 

820 READCC : DOUNTI LCC = 0 : READJ : READ SU : CD% (J 
) =SU:CC=CC-1 : LOOP : rem 225 

830 PRINT: PRINT" {FLASH ON}PREMI UN TASTO 



" ; : GETKEYTT$ 

: rem 

238 

840 

LOOP: REM ** FINE LOOP PRINC. ** 




: rem 

1 62 

850 

IFCD% (0) O1THEN940 

: rem 

208 

860 

GOTO! 1 50 

: rem 

1 58 

870 

REM ** INVENTARIO ** 

: rem 

42 

880 

RESTORE9000 

: rem 

1 41 

890 

SCNCLR : PRINT" { RVS } { RED } " 

SPC (1 2) M LA 

TU 


A SITUAZIONE" SPC ( 1 1) " {OFF } { BLK } " : LI =4 



: rem 

62 

900 

PRINT: PRINT: PRINT: READ A$ 

: DOUNTI LA$ 

= "@ 


" : READ I : READC Z : I FCD % ( I ) = 

C ZTHENPRI NTA$ 


: PRINT: LI =LI+2 

: rem 

79 

910 

IFLI >=21 THENPRINT" {FLASH 

ON} PREMI 

UN 


TASTO :GETKEYTT$: SCNCLR: LI=0 




: rem 

1 46 

920 

READA$ : LOOP 

: rem 

1 44 

930 

FORI =LIT022 : PRINT: NEXT: PRINT" 



{FLASH ON} PREMI UN TASTO 

" ; : GETKEYTT? 


: PRINT: RETURN 

: rem 

1 40 

940 

REM ** SCONFITTA ** 

: rem 

21 2 


950 GOSUBl 000 : SCNCLR: PRINT: PRINT: PRINT"NO 
N CE L’HAI FATTA" : PRINT: PRINT 

:rem 45 

960 PRINT" FORSE TI ANDRA' MEGLIO UN ALTRA 
VOLTA" : PRINT: PRINT: PRINT : rem 200 

970 PRINT" SE VUOI RICOMINCIARE PREMI 'S' 

" ; : GETKEYTT$ : IFTT$< >"S"THENEND : ELSERU 
N :rem 237 

980 REM ** SCONFITTA (TROPPO LENTO)** 

:rem 143 

990 GOSUBl 000 : SCNCLR: PRINT: PRINT: PRINT: PR 
I NT "SEI STATO TROPPO LENTO" : PRINT: PRI 


NT: GOTO960 :rem 180 

1000 SCNCLR:COLOR4 , 1 :COLORl ,2:COLORO,1 : RE 
STORE1 040 : rem 129 

1010 FORI = 1 T024 : READ PC$: PRI NTTAB (12) ;PC$: 

NEXT : rem 51 

1020 PRI NTTAB (1 0) " { R VS } P E C C A T O ! 

{SPAZI }! {OFF}" ; :rem 221 

1 0 30 FORI = 1 TOl 0 : COLOR 0 , 3,4: FORJ = l TO300 : NE 
XT: COLORO , 1 :FORJ=lTO300: NEXT: NEXT 

:rem 221 

1040 DATA, " { 3 SPAZI } {RVS }£{ 8 SPAZI} 

[<*>] {OFF}" , " { 2 SPAZI}{RVS}£ 

{ 10 SPAZI }[<*>] {OFF}" , " {RVS}£ 

{ 12 SPAZI }[<*>] {OFF}" : rem 179 

1050 DATA"{RVS}£{ 14 SPAZI }[<*>] {OFF}" , " 

{ RVS } { 16 SPAZI} {OFF}", "{RVS} 

{ 2 SPAZI } {OFF}£{ 2 SPAZI }[<*>] {RVS } 
{ 4 SPAZI } {OFF}£{ 2 SPAZI }[<*>]{ RVS } 
{ 2 SPAZlHOFF}" : rem 208 

1060 DATA" {RVS }{ 2 SPAZI} {OFF} { 4 SPAZI} 

{ RVS } { 4 SPAZI} {OFF} { 4 SPAZI }{RVS} 

{ 2 SPAZI } {OFF } " , " {RVS } { 2 SPAZI} 
{OFF}{ 4 SPAZI} {RVS} { 4 SPAZI} {OFF} 

{ 4 SPAZI} {RVS} { 2 SPAZI } {OFF}" , " 
{RVS } { 2 SPAZI }[<*>] {OFF} { 2 SPAZI} 
{RVS}£{ 4 SPAZI }[<*>] {OFF} 

{ 2 SPAZI } {RVS }£{ 2 SPAZI} {OFF}" 

:rem 217 

1070 DATA" {RVS } { 7 SPAZI } {OFF }£[<*>]{ RVS } 
{ 7 SPAZI } {OFF}" , " {RVS } { 7 SPAZI} 
{OFF } { 2 SPAZI} {RVS} { 7 SPAZI} {OFF}" 
,"{RVS}{ 7 SPAZI} {OFF} { 2 SPAZI} 

{ RVS } { 7 SPAZI} {OFF}" : rem 102 

1 080 DATA" [<*>] {RVS} { 6 SPAZl}{OFF} 

{ 2 SPAZI } { RVS } { 6 SPAZI }{OFF}£"," 

[ < * > ] { RVS } { 12 SPAZI } {OFF}£" , " 

{ 2 SPAZI }[<*>] {RVS} { 10 SPAZI } {OFF } 
£” :rem 47 

1090 DATA" { 3 SPAZl}{RVS}{ 10 SPAZl}{OFF} 
","{ 3 SPAZI } { RVS } { 8 L} [<H>] {OFF}" 

,"{ 3 SPAZI} {RVS} [< 9 H> ] {OFF } " , " 

{ 3 SPAZI } { RVS } { 10 SPAZI } {OFF } " 

: rem 1 1 2 

1100 DATA" { 3 SPAZI} {RVS} { 10 SPAZI} {OFF} 
","{ 3 SPAZI }[<*>] {RVS} { 8 SPAZI} 
{OFF}£","{ 4 SPAZI }[<*>] {RVS} 

{ 6 SPAZI } {OFF}£" , : rem 40 

1110 VOL8 : rem 236 

1 1 20 FORI = 1 TO 1 1 : READPT: READTM : SOUND 1 ,PT,T 
M : FORJ = 1 TOTM* 1 6 : NEXT: NEXT : rem 137 
1 1 30 DATAI 18,40,118,40,118,10,118,30,262, 

40.217.10.217.30.118.10.118.30.118.1 
0,118,30 : rem 85 

1140 RETURN :rem 166 

1150 REM ** VITTORIA ** : rem 197 

1 1 60 SCNCLR:COLOR4 ,12,6 :COLORO, 1 2,5:COLOR 

1.7.1 : rem 238 

1170 PRINT: PRINT: PRINT: PRINTTAB (5) "{RVS} 

C E{ 2 SPAZI }L ' H A I{ 3 SPAZÌ}F A T 
T A ! ! {OFF }": PRINT: PRINT :rem 253 

1180 PRINT" A DIR LA VERITÀ' NON CI SPERAV 
O": PRINT" (E FORSE NEANCHE TU)" 

: rem 140 

1190 PRINT: PRINT"ED INVECE CI SEI RIUSCIT 
O!!" : rem 199 

1 200 RESTOREI 220 ;re m 172 

1210 VOL8 : FORI = 1 TOl 4 : READPT : READTM : SOUND 2 
, PT ,TM : FORJ = 1 TOTM*1 6 : NEXT: NEXT 

: rem 240 

1 220 DATA345 ,20,516,60, 571 ,10,345,10,571 , 
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10,620,40,620,40,620,40,620,10 

: rem 177 

1 230 DATA 6 4 3, 10, 5!6, 10,620, 40, 571 ,1 0,51 6, 



30 

: rem 

96 

1240 

PRINT: PRINT" {BLK }COMPLIMENTI E. . 



{RVS }C I A O ! {OFF } { BLK } " 

: rem 

1 1 2 

1 250 

END 

: rem 

1 59 

1 260 

REM ** INSULTATO? ** 

: rem 

87 

1270 

RESTORE4000 

: rem 

1 78 


1 280 READNI : DOUNTILNI =0 : READI S$ : IFRR$=IS$ 
THENNI =1 : rem 179 

1 290 NI =NI - 1 : LOOP: IFIS$< >RR$THENRETURN 

:rem 227 

1300 SCNCLR SCOLORO, 5 , 4 rCOLORl ,2:PRINT:PRI 
NT: PRINT" { 3 SPAZI }{ 3 Q} { 5 SPAZI} 

{ 3 Q}{ 5 SPAZI}} 3 Q}{ 6 SPAZI }Q 
{ 6 SPAZI}} 3 Q}" : rem 177 

1310 PRINT"} 2 SPAZI }Q{ 3 SPAZI }Q 

{ 3 SPAZI }Q{ 3 SPAZljQ} 3 SPAZI }Q 

{ 3 SPAZI }Q{ 4 SPAZI }Q Q{ 4 SPAZI }Q 

{ 3 SPAZI }Q" : rem 192 

1320 PRINT"} 2 SPAZI }Q{ 7 SPAZljQ 

{ 3 SPAZI }Q{ 3 SPAZI }Q{ 7 SPAZI }Q 

{ 3 SPAZI }Q{ 3 SPAZI }Q{ 3 SPAZI }Q":P 

RI NT" { 2 SPAZI }Q{ 7 SPAZI }Q 
{ 3 SPAZI }Q{ 4 SPAZI}} 3 QT 
{ 4 SPAZI }Q{ 3 SPAZI }Q{ 6 SPAZljQ" 

: rem 131 

1330 PRINT"} 2 SPAZI }Q{ 7 SPAZljQ 

{ 3 SPAZI }Q{ 7 SPAZI }Q{ 3 SPAZI} 

{ 5 Q } { 5 SPAZI }Q" : PRINT" { 2 SPAZI} 

Q { 3 SPAZI } Q { 3 SPAZI }Q { 3 SPAZl}Q 
T 3 SPAZI }QT 3 SPAZI }QT 3 SPAZI }Q 
{ 3 SPAZI }Q{ 5 SPAZI }Q" :rem 38 
1340 PRINT"} 3 SPAZI}} 3 qT { 5 SPAZI} 

{ 3 Q}{ 5 SPAZI}} 3 Q } { 4 SPAZljQ 
{ 3 SPAZI }Q{ 5 SPAZljQ" :rem 101 
1350 PRINT: PRINT: PRINT"E' COSI' CHE MI RI 
NGRAZI DI AVERTI" : PRINT" INTRATTENUTO 
FINO AD ORA, EH?" : rem 84 

1360 PRINT: PRINT"SE TU SEI UN INCAPACE IO 
NON C 'ENTRO" : PRINT"E QUINDI..." 

: rem 1 1 6 

1370 FORI = i T05000 : NEXT: GOTO940 : rem 90 
1380 REM ** ERRORI (INCOMPRENSIONE) ** 

:rem 165 

1390 RESTORE2000 :rem 179 

1400 PRINT: READRI : XX=INT (RND (TI )*RI)+1 

: rem 153 

1410 FORI =lTOXX: READRI $: NEXT: PRINTRI$:RET 
URN :rem 229 

1420 REM ** ERRORI (IMPOSSIBILITA') ** 

: rem 1 1 9 

1 430 RESTORE3000 :GOTO! 400 : rem 231 

1440 REM ** CARICA UNA SITUAZ.PREC. ** 

:rem 66 

1450 PRINT: PRINT" INSERISCI LA CASSETTA DA 
TI E POSIZIONALA" : rem 160 

1460 INPUT" PREMI RETURN QUANDO SEI PRONTO 
" ;TT$:OPENl , 1 ,0,NM$ :rem 207 

1470 I NPUT# 1 , SZ :FORI=0TO50: INPUT#! ,CD%(I) 

: NEXT : rem 113 

1480 CLOSEl : PRINT" }RVS} PREMI UN TASTO 

{OFF}" :GETKEYTT$:GOTO220 :rem 164 

1490 REM ** SALVA LA SITUAZIONE ** 

: rem 10 5 

1500 PRINT: PRINT" }RVS} INSERISCI LA CASSET 
TA DATI E POSIZIONALA {OFF}" : PRINT" 
{RVSjATTENZIONE! ! {OFF}" : rem 50 

1510 INPUT" PREMI RETURN QUANDO SEI PRONTO 



";TT$:OPENl ,1 ,1 ,NM$ :rem 204 

1 520 PRINTfl ,SZ : FORI =0TO 50: PRINT#! ,CDl ( I ) 
: NEXT : rem 103 

1530 CLOSEl : PRINT" }RVS}F {OFF} INE O }RVS}C 
{OFF }ONTINUA ?" : GETKEYTT$ :rem 163 
1 540 FQ=- (TT$="C" ) - (TT$< >"C" ANDTT$< >"F" ) * 
2:ONFQGOTO220, 1 530 : rem 38 

1550 END : rem 162 

2000 DATA4 , "MI SPIACE, NON CAPISCO" , "NON 
CAPISCO CIO' CHE VUOI DIRE": rem ^22 
2010 DATA"CERCA DI DIRMELO IN UN ALTRO MO 
DO", "CHE COSA INTENDI DIRE?" 

: rem 215 

3000 DATA 4 , "NON POSSO FARLO" , "QUESTO NON 
E' POSSIBILE" : rem 198 

3010 DATA"QUESTO NO, PROVA QUALCOS'ALTRO" 
, "OH , NO! NON QUESTO!!" :rem 20 
4000 DATA5, STRONZO, VAI IN MONA , MERDA , CRET 
INO, IMBECILLE : rem 211 

5000 DATA"} RED } { RVS } { 40 SPAZI} {OFF}" 

:rem 227 

5010 DATA" {RVS} { 9 SPAZI }LA MACCHINA DEL 
TEMPO} 10 SPAZI} {OFF}" : rem 227 

5020 DATA" {RVS} { 40 SPAZI } {OFF }{ BLK } " 

:rem 89 

5025 DATA" LIBERAMENTE TRATTO DAL ROMANZO 
DI WELLS", : rem 103 

5030 DATA"} 16 SPAZI }N[< 2 Y>]PO[< 2 Y>] 
M" , " { 15 SPAZI }nT 8 SPAZiTm" 

:rem 71 

5040 DATA"} 14 SPAZI }N{ 10 SPAZI }M" , " 

{ 13 SPAZI }N{ 5 SPAZI } [<M>] [<G>] 

{ 5 SPAZI }M" : rem 25 

5050 DATA"} 12 SPAZI }N{ 6 SPAZI }[<M>] 

[ <G> ] { 6 SPAZI }M","{ 12 SPAZI }[<G>] 

{ 6 SPAZI } [<M>] }<G>] { 6 SPAZI }[<M>]" 

:rem 23 

5060 DATA"} 12 SPAZI} [<G>]{ 6 SPAZI }[<M>] 
[<G> ] { 6 SPAZI } [<M>] "," { 12 SPAZI }L 
{ 6 SPAZI } [<M>] [<G>] { 6 SPAZI }@" 

: rem 3 

5070 DATA"} 12 SPAZI }0{ 7 SPAZI }M 

{ 6 SPAZI }£","{ 12 SPAZI} [<G>] 

{ 8 SPAZI }M { 5 SPAZI } [<M>] ":rem 31 
5080 DATA"} 12 SPAZI} [<G>]{ 9 SPAZI }M 
{ 4 SPAZI } [<M>] "," { 12 SPAZI }M 
{ 10 SPAZI }M{ 3 SPAZI }N" :rem 28 
5090 DATA"} 13 SPAZI }M{ 10 SPAZI }M N" , " 

{ 14 SPAZI }M{ 10 SPAZI }N" : rem 159 

5100 DATA"} 15 SPAZI }M{ 8 SPAZI }N" , " 

{ 16 SPAZI } M [ < 2 P>]@L[< 2 P>]N", 

:rem 56 

5110 DATA" BENVENUTO NELLA CASA DEL"," 
{PUR} VIAGGIATORE NEL TEMPO { BLK } . " 

:rem 148 

5120 DATA, "SIAMO NEL SECOLO XIX, E TU TI 
TROVI" , "NELLA TUA CASA IN INGHILTERR 
A" : rem 97 
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5130 DATA, "E' UNA SERA DI GENNAIO, FUORI 
LA" , "TEMPESTA DI NEVE INFURIA E COPR 
E" :rem 244 

5140 DATA" I L MONDO DI UNA COLTRE BIANCA E 
OVATTATA", : rem 231 

5150 DATA" IN CASA, DAVANTI AL RASSICURANT 
E FUOCO" , "DEL CAMINETTO, TU ED I TUO 
I AMICI" : rem 220 

5160 DATA" PARLATE DEL PASSATO E DEL FUTUR 
O" , "E QUALCUNO DISCUTE DI QUANTO SAR 
EBBE" :rem 169 

5170 DATA"UTILE E ISTRUTTIVO CONOSCERE IL 
FUTURO." : rem 105 

5180 DATA, "ALL' IMPROVVISO TU DICI 'IO HO 
LA" , "POSSIBILITÀ' DI SAPERE IL FUTUR 
O ! ' " : rem 4 

5190 DATA"GLI SGUARDI SI GIRANO SUBITO VE 
RSO DI TE" , "E. .. {RED } L ' AVVENTURA COM 
INC IA ! ! {BLK} " : rem 158 

5230 DATA" @ " : rem 104 

5910 DATA0 :rem 25 

5920 DATAI : rem 27 

6000 DATA2, NORD, AVANTI , 2 , SUD , INDIETRO , 2 , E 
ST, DESTRA, 2, OVEST, SINISTRA :rem 121 
601 0 DATA2 , SU , SOPRA , 2 , GIU ' , BASSO , 4 , MACCHI 
NA, TEMPO, CONGEGNO, APPARECCHIO 


:rem 10 

6020 DATA2, COMANDI , LEVE , 3 , FRUTTA , FRUTTI ,C 
IBO, 3 , SALA, STANZA, SALONE :rem 222 

6030 DATA 4 , COLL I NA , COLLE , S AL I TA , MONTE , 3 , F 
I AMMIFERI , FIAMMIFERO ,CERI NO : rem 212 
6040 DATA 2 , FIUME , ACQUA , 3 , PO Z ZO , FORO , BUCO , 
2 ,WEENA, RAGAZZA, 3 ,ELOI , CREATURE , UOMI 
NI : rem 161 

6050 DATA4,MORLOCH, MOSTRI , MOSTRO , ANIMALI , 
4 , PALAZZO, VERDE, CASTELLO, MUSEO 




: rem 

33 

6060 

DATA3 , FORESTA, ALBERI , BOSCO 

,3, LE VA 

,SB 


ARRA, BASTO NE 

: rem 

1 68 

6070 

DATA3 , PUGNALE , COLTELLO , ARMA , 2 , SALOTT 


0,S GGIORNO,! , LABORATORIO 

: rem 

131 

6080 

DATA3 , SFINGE, STATUA, MONUMENTO 




: rem 

239 

6090 

DATA3 , GROTTA , CAVERNA , GALLERIA 




: rem 

1 78 

61 00 

DATA2 , FIORE, FIORI 

: rem 

89 

61 1 0 

DATA2, PRATO, SPI AZZO, 0 

: rem 

1 26 

8000 

DATA 3 ,VAI , VA, VA' ,2, PRENDI, 

AFFERRA 

,2, 


LASCIA , ABBANDONA , 1 , ENTRA 

: rem 

25 

801 0 

DATAI , ESCI , 1 , SALI , 1 , SCENDI 

,2, MANGIA, 


INGOIA , 2 , GUARDA , OSSERVA 

: rem 

252 


8020 DATA3 , ACCENDI , STROFINA, INCENDIA, 4 ,CO 
LPI SC I , UCCIDI , ATTACCA, AMMAZZA 

:rem 60 

8030 DATA3 , SEGUI , INSEGUÌ , CORRI , 2 , MUOVI ,AZ 
IONA :rem 180 

8040 DATA0 :rem 22 

9000 DATA" SEI STATO NEL FUTURO" , 2 , 1 , "SEI 
NEL FUTURO", 2, 2, "HAI I FIAMMIFERI ", 3 
,1 : rem 3 

9010 DATA"HAI LE LEVE" , 4 , 1 , "HAI UN PUGNAL 

E", 5,1, "HAI UN FIORE", 6,1 :rem 60 

9030 DATA" I COMANDI SONO SULLA MACCHINA", 
4,2 :rem 32 

9040 DATA" LA MACCHINA E ' NASCOSTA" , 8 , 1 

: rem 117 

9050 DATA"HAI UNA SBARRA" , 7 , 1 , "WEENA E' C 
ON TE" , 11 , 1 , "WEENA E' DIETRO DI TE", 
11,2,0 : jrem 1 58 

11000 DATA,,, "SEI NEL SALOTTO, DAVANTI A 


11010 

11100 

imo 

1 1 200 

1 1 300 
1 1 400 
11410 
1 1 420 
11430 


I 1 431 

I I 440 


11450 
1 1 460 


1 1 461 


1 1 462 
1 1 470 


1 1 471 
1 2000 


1 2010 


1 2020 


12100 

12110 

1 21 20 

1 2200 

1 2300 
1 2400 
1 241 o 
1 2420 
1 2430 
1 2440 


1 2441 
1 2450 


1 2451 
1 2460 


TE", "VERSO NORD C'E' LA PORTA CHE C 
ONDUCE" : rem 179 

DATA" VERSO IL LABORATORIO .", "0 " 

: rem 14 5 

DATA"GLI SGUARDI SI PUNTANO ATTENTI 
SU WEENA E", n, 2 : rem 95 

DATA" I TUOI AMICI TI GUARDANO ASPET 
TANDO. . . " ,2,1 ,@,0 : rem 4 5 

DATA6 ,1 01 , 42 3,522,92 2,92 3,1 23 

: rem 225 

DATA2,226,6,i ,91 5,1 i ,2 :rem 125 

DATA" VA BENE", 0,2,0 : rem 43 

DATA" VA BENE", 0,2,0 :rem 44 

DATA"D' ACCORDO" ,0,2,0 : rem 226 

DATA" E ' UNA STANZA QUADRATA, CON UN 
TAVOLO", "E QUALCHE SEDIA. IL CAMIN 
ETTO E'" : rem 64 

DATA" ACCESO E DAVANTI CI SONO I TUO 
I AMICI", 0,0,0 : rem 46 

DATA" SEI LONTANO DALLA PORTA, SI IN 
TRAWEDE" , "SOLO QUALCHE ATTREZZO", 0 
,0,0 : rem 79 

DATA" VA BENE.. .",0,2,0 : rem 186 

DATA,"’ SONO STATO NEL FUTURO, E QUE 
STO FIORE", "LO DIMOSTRA!' DICI TU" 

: rem 122 

DATA" (MA DEVO SUGGERIRTI TUTTO IO?) 
" , " E DOPO AVERLO ESAMINATO I TUOI A 
MICI" : rem 34 

DATA" TI RICONOSCONO IL MERITATO TRI 
ONFO! !", 0,0,1 ,1,1 : rem 129 

DATA, "E' LI 'FERMA, CHE NON RIESCE A P 
RONUNCIARE" , "UNA PAROLA: E POI, CHI L 
A CAPIREBBE?" : rem 6 

DATA0,O,O : rem 16 

DATA,,, "SEI ALL'INGRESSO DEL LABORA 
TORIO: ",, "QUI REGNA IL TIPICO DISOR 
DINE CHE" : rem 51 

DATA" FA PARTE DELLE CARATTERISTICHE 
DI UN" , "LABORATORIO CHE SI RISPETT 
I.", :rem 50 

DATA" DAVANTI A TE UN TAVOLO INGOMBR 

0 DI COSE", "E PIU' IN LA' UNA ZONA 

LIBERA",, 0 : rem 56 

DATA"CON UNA MACCHINA INCOMPRENSIBI 
LE A PRIMAVISTA" ,2,0 : rem 168 

DATA"CON LA TUA FEDELE MACCHINA", 2, 

1 :rem 62 

DATA"WEENA E' QUI, SCONVOLTA MA STA 

BENE",1 1 ,2,0,0 : rem 72 

DATAI 0, 1 01 ,422,423,523,907,92 2,92 3, 
107,102,122 : rem 32 

DATA0 :rem 64 

DATA, "VA BENE", 0,3,0 :rem 89 

DATA, "VA BENE", 0,1,0 : rem 88 

DATA , "D ' ACCORDO", 0,3,0 : rem 16 

DATA,"OK. .",0,1 ,0 : rem 159 

DATA, "E' STRANA, NON DISTINGUI BENE 
COME SI A", "FATTA, MA LA DEFINÌ ZION 
E MIGLIORE" : rem 79 

DATA" NON PUÒ' CHE ESSERE 'UN MISTER 
IOSO", "TRABICCOLO ”',0,0,0 :rem 108 
DATA" DALLA PORTA VEDI I TUOI AMICI 
CHE TI", "STANNO GUARDANDO PERPLESSI 
:", : rem 181 

DATA" NON SANNO SE SEI UN PAZZO O UN 
GENIO", 0,0 0 : rem 209 

DATA, "E' UNA STANZA AMPIA, MA IL DI 
SORDINE", "LA FA SEMBRARE MOLTO PIU' 
PICCOLA" : rem 112 
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12461 DATA" LA MACCHINA NEL SUO ANGOLO SEM 
BRA UN", "MOSTRO PREISTORICO ACCOVAC 


CIATO IN" 

: rem 

1 74 

12462 DATA" ATTESA DELLA 

PREDA" ,@,0,0 



: rem 

17 


12470 DATA"DEVI ATTRAVERSARE IL LABORATOR 

IO" ,"E GLI OGGETTI TI INTRALCIANO L 
A STRADA" : rem 172 

12471 DATA0 ,0,0 :rem 17 

1 2480 DATA, "VA BENE ",@,1,0 :rem 233 

12490 DATA , "OK ",@,1,0 :rem 211 

13000 DATA, ,, "EVITANDO I VARI CONGEGNI ED 
ATTREZZI" , "CHE INGOMRANO DOVUNQUE 
ARRIVI" : rem 41 

1 3005 DATA"VIC INO ALLA MACCHINA" : rem 109 
130^0 DATA" DAVANTI AL TAVOLO, DOVE CI SON 
O VARI" , "OGGETTI" ,@ :rem 2 

13100 DATA", UNA SCATOLA DI FIAMMIFERI " , 3 , 
0 :rem 139 

13110 DATA", DELLE STRANE LEVE" , 4 , 0 , @ , 0 

:rem 99 


13200 DATA8 ,101 ,107,407,523,607,907,923,1 
02 : rem 117 

13300 DATA5 ,308,4,1 ,312, 3, 1 ,1012, 3, 1 ,208, 



4,0,212,3 

,0 

: rem 

242 

1 3400 

DATA, "VA 

BENE", @,4,0 

: rem 

91 

1 341 0 

DATA, "VA 

BENE", @,4,0 

: rem 

92 

1 3420 

DATA, "D ' 

ACCORDO ",@,4,0 

: rem 

1 8 

1 3430 

DATA, "OK . 

..",@,2,0 

: rem 

207 

1 3440 

DATA, "OK. 

..",@,4,0 

: rem 

210 


13450 DATA, "VISTA DA VICINO, LA MACCHINA 
SEMBRA" , "ANCORA PIU' STRANA: HA UN 
SEDILE," : rem 76 

1 3451 DATATEGLI ATTACCHI MECCANICI DOVE 
DOVREBBE", "ESSERCI QUALCHE COMANDO 
E DEI" : rem 142 

13452 DATA" QUADRANTI CHE PORTANO INDICAZI 
ONI " , "APPARENTEMENTE ASSURDE: " 

: rem 4 


13453 DATA" 'GIORNI ', 'MESI ', 'ANNI ' E COSI' 
VIA", "FINO ALLE 'MIGLIAIA DI ANNI' 
!!!" :rem 145 

1 3454 DATA@ ,0,0 : rem 19 

13460 DATA" SEI AL CENTRO DELLA STANZA, VI 
CI NO A TE" , "C ’E ' LA MACCHINA" , @ , 0 , 0 

:rem 193 

13470 DATA" D'ACCORDO" ,@,2,0 :rem 233 

13480 DATA" VA BENE" , @ , 0 , 1 , 4 , 0 :rem 240 

13490 DATA" VA BENE" , @ , 0 , 1 , 3 , 0 :rem 240 

13500 DATA" VA BENE, MA LA LUCE ERA PIU' C 
HE SUFFI-" , "CIENTE PER VEDERCI", @,0 
,0 :rem 20 

13510 DATA" VA BENE" , @ , 0 , 1 , 4 , 1 :rem 235 

13520 DATA" VA BENE" , @ , 0 , 1 , 3 , 1 :rem 235 

14000 DATA,,, "SEI SULLA MACCHINA, TI STAI 

GUARDANDO" /'INTORNO: I QUADRANTI C 
HE INDICANO" : rem 214 

14010 DATA" LA DATA PUNTANO UN GIORNO PREC 

ISO: {RED }OGGI ! {BLK} " , , "NON C'E' DU 
BBIO , QUESTA E'" :rem 80 

14020 DATA" PROPRIO LA {RVS } {CYN}MACCHINA 
DEL TEMPO ! ! {OFF } {BLK} " , "E {RED}TU 
{BLK} PUOI ANDARE NEL FUTURO!!" 


:rem 168 

14030 DATA, , "DAVANTI A TE GLI ATTACCHI DE 
I COMANDI " , @ :rem 229 


14100 DATA"CHE SI ADATTANO ALLE LEVE CHE 
HAI", 4,1 : rem 181 

14110 DATA"CON LE LEVE PRONTE DA AZIONARE 
",4,2,@,0 : rem 46 


14200 

1 4300 

1 4400 
1 4410 
1 4420 
1 4430 
1 4440 


1 4441 
1 4450 


1 4460 
14470 

1 4480 


1 4481 

1 4490 
1 4500 

14510 


1451 1 
1 5000 


1 501 0 


1 5020 


1 5030 

1 51 00 
1 5200 
1 5300 

1 5400 


1 5401 


1 5402 
15410 


1 541 1 
1 5420 


1 5421 
1 5430 


1 5431 
1 5440 

1 5441 


DATA6, 102,1 23,507,707,907,923 

:rem 240 

DATA 6 ,208,4,2,212,3,1 ,308,4,1,312,3 
,1,1012,3,1,1308,4,2 :rem 173 

DATA, "VA BENE. . ",@,3,0 : rem 183 

DATA, "VA BENE.. ",@,3,0 : rem 184 

DATA, "OK. . .",@,3,0 : rem 208 

DATA , "D ' ACCORDO. .",@,3,0 : rem 111 

DATA, "LA MACCHINA L’HO GIÀ' DESCRIT 
TA , " , "C I SEI SEDUTO DENTRO, COSA VU 
OI ANCORA?" : rem 30 


DATA" @",0,0 


: rem 


84 


DATA"E ' LO STESSO DI PRIMA, NON C'E 
' NIENTE", "DI NUOVO DA DI RE", @,0,0 


:rem 91 

DATA, "OKAY. . .",@,0,1 ,4,0 :rem 40 

DATA, "CE LI HAI IN TASCA, COSA VUOI 

FARNE?" ,@ ,0, 0 : rem 224 

DATA" IMMAGINO CHE TU VOGLIA INSERIR 
LE NEGLI" , "ATTACCHI , QUINDI TI HO P 
RECEDUTO" : rem 141 

DATA, "ORA PUOI PARTIRE! ! " , @ , 0 , 1 , 4 , 2 


:rem 23 1 

D ATA, "OKAY. . .",@,0,1 ,3,0 : rem 4 2 

DATA, "MA SE C'E' ABBASTANZA LUCE!!" 
/'COMUNQUE. .. ",@,0,0 :rem 77 

DATA, "TUTTO INTORNO A TE GIRA..."," 
MA.. . " , " { PUR } { RVS }SEI PARTITO! ! 
{OFF}{BLK}" : rem 227 

DATA@ ,5,0 :rem 19 

DATA,,, "SEI IN VIAGGIO", "IL MONDO I 
N TORNO A TE E’ UN TURBINE DI" 


:rem 144 

DATA" LUCI E COLORI CHE SI FONDONO:" 
, "LA NOTTE ED IL GIORNO NON ESISTON 
O PIU"' : rem 47 

DATA" E SEI IMMERSO IN UN PERENNE CR 
EPUSCOLO.", ,"I QUADRANTI DAVANTI A 
TE" : rem 123 


DATA" LAMPEGGIANO COME IMPAZZITI; IN 
CHE EPOCA" , "SARAI ORA?", @: rem 215 
DATA@ , 1 : rem 174 

DATA5, 208, 507, 707, 907,1 308: rem 99 
DATA2, 312, 3,1 ,1012,3,1 : rem 111 

DATA, "ED ORA CHE LI HAI COSA CI FAI 
?" , "LA MACCHINA E' IMPAZZITA, GIRA 
SU SE'" : rem 24 3 

DATA" STESSA , SI ROVESCIA E TU TI DI 
S INTEGRI" , "PER LA VELOCITA’ IN UN P 

UNTO" : rem 255 


DATA" IMPREC ISATO TRA L’ANNO 20.000 
E 30.000", ,@,0,1 ,0,0 : rem 175 

DATA, "MA. . .COSA FAI? "/'NON C'E' NI E 
NTE LI' FUORI {RED } {RVS} NOO 
OO!!! {OFF} {BLK}" ,@ : rem 2 

DATA0, 1,0,0 : rem 91 

DATA, "NO! NON SCENDERE !...", "DI LA' 
NON SI VA DA NESSUNA PARTE ... NO !" , 
,@ :rem 240 

DATA0, 1,0,0 : rem 92 

DATA, "LA MACCHINA VIBRA SEMPRE DI P 
IU ' " , "NON TI RIMANE MOLTO TEMPO..." 
, , @ : rem 1 6 

DATA0 , 0 : rem 164 

DATA, "ERA ORA! !...",, "LA MACCHINA I 
NCOMINC IA A RALLENTARE" : rem 112 

DATA" I QUADRANTI LAMPEGGIANO PIU’ L 
ENTAMENTE" , "E PIAN PIANO LA MACCHIN 
A" : rem 1 38 
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1 5442 
1 5450 

1 5451 
1 5460 

1 5461 
1 6000 
16010 

1 6030 

1 6040 

1 6050 
16100 

16110 

16120 
1 6200 

16300 

1 6400 
16410 
1 6420 
1 6430 

1 6440 

1 6450 

1 6460 

1 6470 
1 6480 
1 6490 

1 6500 

16510 

16511 


DATA" INCOMINCIA A FERMARS I @ , 6 
, 1 , 2 , 2 : rem 1 1 1 

DATA , " VABBE ' . . . MA NON HAI NIENTE A 
LTRO A CUI" , "PENSARE? {RED }MUOVI TI ! 

! { BLK } " : rem 36 

DATA ,@,0,1 ,3/0 :rem 250 

DATA , "MA COSA DIAVOLO FAI ? " , , ?, NON E 

1 IL MOMENTO DI METTERSI A GIOCARE 1 
",@ : rem 1 96 

DATA0 , 0 : rem 167 

DATA , , , : rem 1 49 

DATA"TI RITROVI IN UN PRATO IN LIEV 
E DISCESA" , "IN UNO SPAZIO APERTO." 

: rem 1 7 8 

DATA , "AD EST IL PRATO CONTINUA IN D 
I SCESA" , "E LONTANO SI VEDE UNO" 

: rem 1 34 


DATA" STRANO POZZO; A SUD UN BASSO E 
D AMPIO" , " PALAZZO , AD OVEST UNA GRA 
NDE STATUA" :rem 142 

DATA@ :rem 86 

DATA"DELLA TUA CASA NEMMENO L'OMBRA 
" , 8 , 0 : rem 109 

DATA" LA MACCHINA E' ACCANTO A TE" , 8 
,0,"LA MACCHINA E GLI ESSERI SONO S 
COMPARSI" : rem 36 

DATA8 , 1 , "WEENA CONTINUA A SEGUIRTI" 
, 1 1 , 1 , @ , 0 : rem 74 

DATA! 5, 102, ”103, 104,1 11 , *» ! 4 , 1 1 8 , ! 24 , 

208,418,424,611,911,914,918,924 

: rem 6 

DATA3, 3 1 2,3,1 ,1012, 3, 1 ,907, 8,0 

:rem 253 

DATA, "VA BENE. . .",@,8,0 :rem 236 

DATA , "OK . . . " , @ , 1 2 , 0 : rem ! 

DATA , "D ' ACCORDO ..",@,7,0 : rem 116 

DATA, "IN ALTO? VA BENE . . " , @ , 1 8 , 0 

:rem 248 

DATA, "E' LONTANO, COMUNQUE AVVIAMOC 
I..." ,@,12,0 : rem 41 

DATA, "VA BENE, ORA ENTRI AMO . . . " , @ , 8 
,0 :rem 94 

DATA, "BRRR! "E' COSI' SINISTRA 
..." ,"MA SE LO DICI TU... ",@,7,0 

:rem 106 


DATA, "BEN FATTO, NON SI SA MAI...", 
@,0,1,4,! : rem 1 05 

DATA, "LI' DENTRO? SE NON ALTRO E' A 
L COPERTO. .",@,8,0 :rem 246 

DATA, "NON VEDO NESSUNA PORTA DA QUI 
"," FORSE GUARDANDO DA VICINO...",®, 
7,0 :rem 68 

DATA, "GAMBE IN SPALLA, E VIA!..." ,@ 
,18,0 : rem 143 

DATA, "NON E' MOLTO ALTA, MA DA LA' 
POTRAI" , "DOMINARE CON LO SGUARDO IL 
POSTO" : rem 198 

DATA® ,0,0 : rem 16 


1 6520 

1 6521 
1 6530 

1 653! 
16540 

1 6541 
1 6550 
1 655! 
1 6560 

16570 

1 657! 
17000 

17010 
1 7020 
1 7100 
1 71 1 0 

17120 

17130 

1 7200 
1 7300 

1 7400 
1741 0 
1 7420 

1 7430 
1 7440 

1 7450 

1 7451 
1 7460 

1 746! 
1 7470 

1 7480 

1 7490 


DATA, "E' LONTANO, MA LA SUA FORMA A 
NCHE DA QUI", "NON HA NIENTE DI CONS 
UETO . " : rem 8 9 

DATA" SE E' UN POZZO E' DAVVERO MOLT 

0 STRANO. .",@,0,0 : rem 11 

DATA, "E* UNA COSTRUZIONE GRANDE, SP 
AZIOSA" , "CHE SEMBRA FATTA PER ABITA 
RCI" : rem 21 

DATA®, 0,0 :rem 18 

DATA, "E' MOLTO STRANA, E' SIMILE AD 

UNA SFINGE", "CON IN PIU' UN'ESPRES 
SIONE" : rem 224 

DATA" MALIGNA CHE NON PROMETTE NULLA 
DI BUONO", @,0,0 : rem 5! 

DATA, "LI BUTTO VIA? OKEY ...",@,0,1 , 
3,0 : rem 1 1 1 

DATA" MALIGNA CHE NON PROMETTE NULLA 
DI BUONO", @,0,0 : rem 52 

DATA, "MA SEI PI ROMANE? COSA TE NE F 
AI DI UN", "CERINO ACCESO???" , @ , 0 , 0 

:rem 166 

DATA, "E' UN PO' MALRIDOTTA, MA SEMB 
RA IN BUONE" , "CONDIZIONI , PER FORTUN 
A. " : rem 1 57 

DATA" ALTRIMENTI COME FARESTI A TORN 
ARE?"., @,0,0 : rem 76 

DATA,,, "LA STATUA E' SIMILE AD UNA 
SFINGE, MA LA", "SUA ESPRESSIONE NON 
E' AFFATTO" :rem 217 

DATA" BENEVOLA . " , " I L BASAMENTO ESTER 
NO NON PRESENTA PORTE" : rem 103 

DATA, "E' UNA PARETE LISCIA E SOLIDA 
",@ : rem 183 

DATA" LA MACCHINA POTREBBE ESSERE QU 

1 DENTRO", 8,1 : rem 174 

DATA"WEENA TI PORTA ATTORNO ALLA ST 
ATUA" ,11 ,1 ,"E TI INDICA UN PEZZO DI 

PARETE" : rem 108 

DATAI 1,1, "APPARENTEMENTE UGUALE AL 
RESTO ",11 ,1 ,"ORA UN'APERTURA TI PER 
METTE" :rem 168 

DATA9 ,1 , "DI ENTRARE" ,9,1 ,@,0 

:rem 68 

DATA 4, 103,127,924,927 :rem 103 

DATA6, 1 1 20,7,1 , 1 1 24 , 7 , 1 , 424 , 9 , 1 , 31 2 
,3,1,1012,3,1,308,4,1 :rem 229 

DATA, "VA BENE. . .",@,6,0 :rem 235 

DATA , "D ' ACCORDO ...",@,6,0 : rem 1 6 1 
DATA, "SEMBRA CHE NON CI SIA NESSUNA 
" , "POSSIBILITÀ' DI ENTRARE. .' . " , @ , 0 , 
0 :rem 169 

DATA, "E' ALLA TUA DESTRA, AD EST",® 
,0,0 :rem 125 

DATA, "SOTTO I COLPI UNA PARTE DELLA 
PARETE" , "CEDE, E TU PUOI ENTRARE.. 

• " f @ 1 0 , 1 , 9 , 1 : rem 1 92 

DATA, "ALL' IMPROVVISO UNA SEZIONE DI 
PARETE" , "CROLLA E UN' APERTURA PER 
METTE" : rem 2 54 

DATA" IL PASSAGGIO. ..",@,0,1,9,!' 

: rem 4 

DATA, "PASSANDO ATTRAVERSO LA STRETT 
A APERTURA" , "ENTRI FINALMENTE DENTR 
0...",@ : rem 159 

DATAI 8,0 : rem 226 

DATA, "QUI? OKAY. . .",@,0,1 ,3,0 

:rem 89 

DATA, "COSA VUOI FARE, INCENDIARLA?" 
/ @ , 0 , 0 : rem 1 90 

DATA, "VA BENE, PERO' POTEVANO SERVI 
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RTI ...",@,0,0 : rem 9’ 

18000 DATA,,, "SEI IN QUELLO CHE SI POTREB 
BE DEFINIRE" , "L’ATRIO DEL PALAZZO;" 

:rem 189 

18010 DATA" E ' UN PORTICO NON MOLTO ALTO." 

, "VERSO SUD SI APRE IL PORTONE DI I 
NGRESSO" ideiti 189 

18020 DATA" VERO E PROPRIO, E DA LI ' VENGO 
NO VOCI" , "UMANE: ALLORA IL PALAZZO 
E' ABITATO!" :rem 38 

18030 DATA" SEMBRA CHE AL DI LA' DEL PORTO 
NE", "CI SIA UN AMPIA SALA",® 


18100 

18200 

1 8300 

18400 
18410 
1 8420 
1 8430 
1 8440 


DATA@ , 0 



: rem 

31 

0 

: rem 

1 76 

101 ,102,410,518,910, 

918 



: rem 

231 

308,4,1 ,31 2,3,1 ,1 01 2 

,3,1 



: rem 

247 

OKAY. .",@,6,0 

: rem 

65 

VA BENE. . .",@,9,0 

: rem 

240 

VA BENE", @,9,0 

: rem 

1 03 

OK . . . " , @ , 6 , 0 

: rem 

21 6 

DA' L'IMPRESSIONE DI 

ESSERE M 


1 8441 
1 8450 

1 8451 
1 8460 
1 8470 

1 8480 

19000 

19010 

1 9020 

1 9030 


OLTO GRANDE", "DA DENTRO VENGONO SUO 
NI COME DI" : rem 164 

DATA"UN BANCHETTO, ANCHE SE MANCA Q 
UALCOSA. . .",@,0,0 : rem 37 

DATA, "VISTO DA VICINO DIMOSTRA LA S 
UA TRASCU-" , "RATEZZA, EPPURE HA ANC 
ORA UNA SUA" :rem 222 

DATA"MAESTOSITA'", ,@,0,0 : rem 210 

DATA,"OK. .",@,0,1 ,4,0 :rem 100 

DATA," VA BENE.. .",@,0,1 ,3,0 

:rem 169 

DATA, "COS’ALTRO VUOI VEDERE? E' GIO 
RNO! . . .",@,0,0 : rem 99 

DATA,,, "ORA SEI IN UN'AMPIA SALA"," 
UOMINI GIOVANI, CHE STAVANO MANGI AN 
DO" :rem 125 

DATA"QUANDO SEI ENTRATO TI SI AFFOL 
LANO"," INTORNO, E CERCANO DI PARLAR 
E CON TE" : rem 2 52 

DATA, "PARLANO UNA STRANA LINGUA, MA 
A GESTI", "E CAPENDO QUALCOSA DELLE 
RADICI" : rem 145 

DATA"COMUNI DELLE DUE LINGUE RIESCI 
A" , "COMPRENDERE CHE LORO SI CHIAMA 


NO ' ELO I ' 


: rem 


49 


19040 DATA, "TERMINATE LE PRESENTAZIONI, T 
I MOSTRANO" , "DEGLI ENORMI FRUTTI CH 

E SEMBRANO" : rem 141 

19050 DATA"L ' UNICO TIPO DI CIBO CHE SI TR 

OVA SULLA", "TAVOLA.", "A EST C'E’ UN 
A PORTA" : rem 2 39 

19060 DATA"CHE CONDUCE AD UN'ALTRA SALA, 
MA DI LA ’","E' MOLTO SCURO ...", @ 

:rem 247 

19100 DATA@ , 0 :rem 177 


19200 DATA9 ,101 ,103,209,410,510,809,909,9 


10,916 :rem 

19300 DATA 3 ,308,4, 1 ,312, 3,1, 1012, 3,1 

: rem 

DATA, "VA BENE. . .",@,8,0 : rem 

DATA,"OK. . .",@,10,0 : rem 

DATA, "SONO FRUTTI MOLTO GROSSI, 


1 9400 
1 941 0 
1 9420 


68 

248 

239 

2 

" , "N 


ON PUOI CERTO PORTARTELI DIETRO..." 



, ,@, 0,0 


: rem 

241 

1 9430 

DATA, "VA BENE, MA 

STAI 

ATTENTO . . 

11 

• , 


@, 10,0 


: rem 

37 

1 9440 

DATA, "MA. . .DA CHE 

PARTE???" ,@ , 0, 

0 




: rem 

86 

1 9450 

DATA, "MMMM. . . " , "DAVVERO OTTIMI ! . 

it 


, "ORA HAI ANCHE LA 

PANCIA PIENA" 





: rem 

1 24 

1 9451 

DATA®, 0,1 ,10,1 


: rem 

1 

1 9460 

DATA, "SONO GROSSI, 

MA 

IL PROFUMO 

E 


L'ASPETTO" , "PROMETTONO 

BENE : SEMBRAN 


O APPETITOSI" 


: rem 

39 

1 9461 

DATA@ ,0,0 


: rem 

23 


19470 DATA, "E' AMPIA, INGOMBRA DI TAVOLE 

IMBANDITE" , "ED AFFOLLATA DI UOMINI 
E DONNE" : rem 93 

19471 DATA, @,0,0 :rem 68 

19480 DATA, "SONO GIOVANI, NON CI SONO VECC 

HI TRA LORO", "MA HANNO TUTTI UN ESP 
RESS IONE" : rem 146 

DATA" TRISTE , COME SE SENTISSERO UN 
PERICOLO" , "VICINO. " : rem 157 

DATA, "SEMBRANO PERSINO IMPAURITI... 


1 9481 
19482 
1 9490 
1 9500 

19510 

19511 
20000 

2001 0 

20020 

20100 

201 1 0 


20200 

20300 


20400 

2041 0 
20420 

20430 

20431 

20432 


",@,0,0 : rem 107 

DATA, "LE LASCIO QUI? OK . . . " , @ , 0 , 1 , 4 
, 0 : rem 1 6 

DATA, "VA BENE, COMUNQUE ...", @ , 0 , 1 , 3 
,0 :rem 6i 

DATA, "LA LUCE DEL FIAMMIFERO INCURI 
OSISCE GLI " , "ELOI , CHE LO GUARDANO 
DIVERTITI.." : rem 24’ 

DATA®, 0,0 : rem 19 

DATA,,, "SEI ENTRATO NEL DORMITORIO 
DEGLI ELOI!!", "MA QUELLI CHE STAVAN 
O DORMENDO" : rem 151 

DATA" AL BUIO NON TI RICONOSCONO, SI 
ALZANO" : rem 1 i 0 

DATA® : rem 78 

DATA" E ALL'IMPROVVISO {RED ITI ATTAC 
C ANO ! ! { BLK }",3,1 ,"E SUBITO {RED}TI 
ATTACCANO {BLK}", 3,0 : rem 166 

DATA "E RIMANGONO FERMI MA ANCORA IN 
DECISI SE UCCIDERTI O NO",3,2,@,l 

:rem 228 

DATAI ,1116 : rem 52 

DATA7 ,308,4, 1 , 3’2, 3, 1,1012, 3,1,104, 
3,1 ,104,3,2,510,3,1 ,510,3,2 

: rem 236 

DATA, "SONO IN TROPPI, NON RIESCI A 
SOPRAFFARLI ", "E LORO TI LINCIANO!!! 
"»@r0, 1,0,0 : rem 1 59 

DATA, "MA COSA SE NE FARANNO , PO I ... " 
,@,0,4,0 : rem 135 

DATA, "MA LI BUTTI VIA PROPRIO ORA?? 
",@,1,3,0 : rem 28 

DATA, "FINALMENTE ! ! " , , "LA LUCE DEL F 
I AMMIFERO PERMETTE LORO DI" 

:rem 221 

DATA, "RICONOSCERTI PER UN UOMO E LI 

", "TRANQUILLIZZA: SCAMPATA PER UN P 

ELO..." : rem 2 38 

DATA@ , 0 , 1 , 3 , 2 :rem 203 
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20440 

20441 
20450 

20460 

20461 

20470 

21000 

21010 

21 1 00 
21200 
21 300 

21400 

21410 

21 420 

21 430 

21440 

2i 450 

21451 

21 452 

22000 

2201 0 
22020 

22030 

22040 
221 00 

22110 

22200 

22300 

2231 0 
22400 



DATA, "TI BLOCCANO LA STRADA E TI AF 
FERRANO! !", "INCOMINCIANO A COLPIRTI 
E TU CADI" : rem 243 

DATA" SOTTO LA LORO FURIA" , @ , 0 , 1, 0 , 0 

: rem 1 5 

DATA, "ORA PUOI ANDARE . . . " , @ , 9 , 1 , 3 , 1 

:rem 195 

DATA, "L'USCITA E' BLOCCATA DAGLI UO 
MINI", "CHE TI COLPISCONO INFURIATI 
E TI" : rem 252 

DATA" { RED }{RVS}{ 2 SPAZ I }UCC IDONO ! ! 
{ 2 SPAZIHBLKHOFF}", 0,0,1 ,0,0 

. :rem 30 

DATA, "OH SI ', CERTO, MEGLIO NON STARE 
QUI TROPPO", @,9,1 ,3,1 : rem 154 

DATA,,, "SEI IN UNA GROTTA.", "E' MOL 
TO BUIO, NON SI RIESCE A VEDERE" 

:rem 48 

DATA"COSA C ' E ' PIU' IN BASSO...", "A 
NORD C'E' L'USCITA" ,@ :rem 94 

DATA@,0 : rem 170 

DATA2,! 01 , 525 :rem 199 

DATA4, 30 8,4,1 ,312, 3, 1 ,1012, 3, 1 ,925, 
3,2 : rem 123 

DATA, "SI', E ' MEGLIO. . .",@,12,0 

:rem 122 

DATA, "OKAY, MEGLIO COS I ’ " , @ , 1 2 , 0 

:rem 75 

DATA, "VA BENE, MA NON SPERARE DI RI 
TROVARLE. .." ,@ ,0, 1 ,4, 0 : rem 237 

DATA," {RED} { RVS } QUI ? ?? { BLK } {OFF} VA 
BENE... ",@,0,1 ,3,0 : rem 1,55 

DATA, "MENO MALE, ADESSO CI SI VEDE 
UN PO' DI PIU' ...",@,0,1 ,3,2 

:rem 129 

DATA, "ALLA LUCE LA GROTTA APPARE PI 
U' PICCOLA", "DI QUELLO CHE L'ECO FA 
CEVA" : rem 127 

DATA" PREVEDERE. E' STRANO ...", "COMU 
NQUE LA GROTTA FINISCE BRUSCAMENTE" 

:rem 109 

DATA "DO PO POCHI METRI "FINCHE ' I 
L FIAMMIFERO SI SPEGNE" , @ , 0 , 1 , 3 , 1 

: rem 21 1 

DATA,,, "SEI NELLA PARTE EST DEL PRA 
TO" , "AI TUOI PIEDI CRESCONO STRANI 
FIORI" : rem 50 

DATA" SONO BELLISSIMI, MA DIVERSI DA 

QUELLI", "CHE CONOSCI." :rem 28 

DATA, "AD EST C'E' IL POZZO, PIU' VI 
CI NO ORA", "A SUD UN RIALZO CON ALLA 
BASE" : rem 15 

DATA"QUELLA CHE SEMBRA L’IMBOCCATUR 
A DI UNA" , "GROTTA" , "A NORD SCORRE U 
N FIUME" : rem 189 

DATA" AD OVEST IL PRATO CONTINUA..." 
,@ :rem 222 

DATA"MA. . {RED} {FLASH ON}LA MACCHINA 
! ! {RVS} LA STANNO PORTANDO VIA! 

{ BLK } {OFF } " , 8 , 0 :rem 30 

DATA"WEENA ORA E' ACCANTO A TE" , 1 1 , 
1 , @ , 0 : rem 1 52 

DATAI 3,1 01 ,102,103,1 1 3,1 1 4,1 25,226, 
425,913,914,925,926,927 :rem 127 

DATAI 2,308,4,1 , 3 1 2 , 3 , 1 , 1 04 , 8 , 1 , 1 04 , 
4, 0,104, 4, 1 ,104, 4, 2, 1 27, 8, 1 ,1 27, 4,0 
,127,4,1 : rem 254 

DATAI 27, 4, 2, 1 01 2, 3,1 ,907,8,0 

:rem 162 

DATA , "OK , VEDIAMO COSA C'E' LI'..", 


@,13,0 : rem 1 85 

22410 DATA , "OK , MA FAI ATTENZIONE ...", @ , 1 
1,0 : rem 1 36 

22420 DATA, "VA BENE . . . " , @ , i 4 , 0 :rem 24 

22430 DATA , "COS ' E ' , HAI VOGLIA DI FARTI U 
N BAGNO?", "MA TI SEI PORTATO DIETRO 

IL COSTUME?" : rem 105 

22431 DATA" VA BENE, SCHERZAVO, ORA ANDIAM 

O..",@,13,0 : rem 167 

22440 DATA, "HAI MONETINE DA GETTARCI DENT 
RO?" , , "HA ,HA , BUONA QUESTA, EH?" 

:rem 224 

22441 DATA, "OKAY, OKAY, NON DICO PIU' NIE 

NTE ...",@,14,0 :rem 12 

22450 DATA, "VA BENE . . . " ,@ , 11 , 0 :rem 24 

22460 DATA, "E' STRANISSIMO, MA HA UNA BEL 

LEZZA MOLTO" , "PARTICOLARE: UN BEL S 
OUVENIR . . . " : rem 182 

22461 DATA@,0,1 ,6,1 :rem 209 

22470 DATA, "OK , MA STAI ATTENTO ...", @ , 1 1 , 

0 : rem 1 3 

22480 DATA, "E' UN CORSO D'ACQUA PICCOLO, 
MA AGITATO" , "INTORNO C'E' UN GRUPPO 

DI ELOI" : rem 102 

22481 DATA@ ,0,0 : rem 19 

22490 DATA, "E’ UN'APERTURA NEL TERRENO CO 

N UN", "BASSO PARAPETTO, MA SI PUÒ ’ SO 
LO DEFINIRLO" :rem 136 

22491 DATA" POZZO PER MANCANZA DI TERMINI 

ADATTI A", "RENDERE BENE L'IDEA",@,0 
,0 :rem 8 

22500 DATA, "E' UN'APERTURA BASSA, CHE NON 

SEMBRA", "DI ORIGINE NATURALE, MA N 
ON PARE CHE" : rem 43 

22501 DATA" VI SIA QUALCHE COLLEGAMENTO CO 
N UN" , "EDIFICIO VICINO", @,0,0 

: rem 108 

22510 DATA, "SEMBRA AD UNA ROSA, MA LE SFU 

MATURE", "DI COLORE NON LO FANNO RAS 
SOMIGLIARE" :rem 110 

22511 DATA" A NESSUNA PIANTA CHE TU CONOSC 

A", @,0,0 : rem 23 

22520 DATA, "NON C'E' NULLA CHE NON TI ABB 
IA GIÀ'", "DETTO: SVEGLIATI UN PO' E 

MUOVITI!" : rem 47 

22521 DATA@ ,0,0 :rem 14 

22530 DATA, "MA DIMMI A COSA TI SERVE LASC 

IARLI QUI. .",@,0,1 ,4,0 : rem 205 

22540 DATA, "QUI? VA BENE . . . " , @ , 0 , 1 , 3 , 0 

:rem 208 

22550 DATA, "TORNIAMO LI'? OK...",@,6,0 

:rem 58 

22560 DATA, "LA MACCHINA E' STATA PORTATA 

VIA DA", "STRANI ESSERI, E TU HAI LA 
SCIATO I" : rem 68 

22561 DATA" COMANDI CHISSÀ’ DOVE!! ORA NON 

POTRAI" , "PIU' TORNARE: TI SEI PERS 
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0 NEL FUTURO" : rem 2 36 

22562 DATA@,6,1 ,0,0 :rem 210 

22570 DATA, "LA MACCHINA E' TRASCINATA VIA 

DA ESSERI", "CHE NON AVEVI VISTO PR 
IMA" :rem 133 

22571 DATA" E CHE LA STANNO PORTANDO VERSO 

LA STATUA" , "FORTUNATAMENTE HAI ANC 
ORA CON TE" : rem 197 

22572 DATA" I COMANDI " , 0 , 6 , 1 , 8 , 1 :rem 144 

22580 DATA, "STRANE CREATURE HANNO PORTATO 

VIA LA" , "MACCHINA DOVE AVEVI LASCI 
ATO I" :rem 163 

22581 DATA"COMANDI ! ! ORA SEI PERSO NEL FU 

TURO! !", @,6,1 ,0,0 :rem 2^0 

22590 DATA, "INTENDI DIRE VERSO LA STATUA? 

VA BENE. . .",@,6,0 :rem 77 

22600 DATA, "LA MACCHINA E' SPARITA E TU N 

ON HAI PIU'" ,"I COMANDI. ORA NON PU 

01 TORNARE" : rem 140 

22601 DATA" INDIETRO! !" ,0,6,1 ,0, 0:rem 220 

22610 DATA, "STRANE CREATURE STANNO PORTAN 
DO LA" , "MACCHINA IN DIREZIONE DELLA 

STATUA" :rem 140 

22611 DATA" PER FORTUNA HAI ANCORA CON TE 

I COMANDI ",@,6,1 ,8,1 :rem 143 

22620 DATA, "OH NO, LA MACCHINA E' SPARITA 

ED I", "COMANDI ERANO A BORDO!!" 

:rem 210 

22621 DATA "ORA NON PUOI TORNARE INDIETRO! 

!", @,6, 1,0,0 : rem 3 

22630 DATA, "MA DICO IO, CHE DI AVOLO ..", "V 
ABBE', OBBEDISCO. 0,0,0: rem 141 

22640 DATA, "LA MACCHINA E' CIRCONDATA DA 

ESSERI CHE", "PRIMA NON C'ERANO E CH 
E LA" :rem 2 

22641 DATA" STANNO TRASCINANDO VIA...", 0,0 

,0 :rem 244 

23000 DATA,,, "SEI IN RIVA AL FIUME", "E' U 
N CORSO D'ACQUA TURBOLENTO CHE " 

:rem 61 

23010 DATA" SCORRE VELOCEMENTE AI TUOI PIE 
DI", "ALCUNI ELOI MASCHI E FEMMINE S 
ONO LI'" :rem 218 

23020 DATA" VICINO E DISCUTONO ANIMATAMENT 
E DELLE" , "CREATURE CHE HANNO PRESO 
LA MACCHINA" :rem 77 

23030 DATA, "LA PAROLA ’MORLOCH' RICORRE S 
PESSO" , "FORSE E' IL NOME DEGLI ESSE 
RI",@ :rem 222 

23100 DATA" ALL' IMPROVVISO UNO DI LORO, UN 
A RAGAZZA" ,11 , 0 , "CADE NELL'ACQUA E 
LA CORRENTE" : rem 165 

23110 DATAI 1,0, "LA TRASCINA VERSO DI TE", 

11.0, "I COMPAGNI LA CHIAMANO ’WEENA 

' MA", 11,0 : rem 202 

23120 DATA" NON POSSONO FARE NIENTE PER SA 
LVARLA" , 11 , 0 , "WEENA GOCCIOLANTE ORA 

TI E ' VICINA" : rem 39 

23130 DATAI!, 1,0,0 :rem 154 

23200 DATAI ,41 3 :rem 6 

23300 DATAI 0, 215,11 ,0,102,11 ,0,102,11 ,1 ,3 

08. 4. 1.31 2. 3. 1.915. 11. 0. 915. 11. 1.91 

6,11,0 : rem 151 

23310 DATA916, 11 ,1 ,1012,3,1 :rem 74 

23400 DATA , "OOOPS . . " > "FORSE HO DIMENTICAT 

O DI DIRTI UNA COSA.." :rem 149 

23401 DATA" IO SONO UN COMPUTER.. W","E I 
COMPUTER{ 5 SPAZI }W{ 3 SPAZI }W"," 
{CYN}NON SANNO NUOTARE {BLK} W 

{ 2 SPAZI }W" : rem 164 


23402 

234^0 

2341 1 

23420 

23421 

23422 

23430 

23431 

23432 
23440 

23450 

23460 

23461 

23470 

23471 

23480 

23481 

23482 

23490 

23491 
23500 

24000 

2401 0 

24020 

24030 
241 00 

24200 

24300 


DATA" { 18 SPAZI }WW","{ 7 SPAZI }GLU 
UB . . . { 3 SPAZI }W", 0,0,1 ,0,0 

treni 52 

DATA , " FIUUU . . " , "CI SEI RIUSCITO PER 
UN PELO. .", "BRAVO, CAPO, ERI NEI P 

OMPIERI?" : rem 152 

DATA"0 TI COMPORTI COSI' SOLO CON L 
E RAGAZZE?" ,0 ,0, 1 , 11 , 1 : rem 24 

DATA, "E TE NE VAI SENZA FARE NIENTE 
?", "PAROLA CHE NON TI CAPISCO.." 

:rem 92 

DATA" PERO' QUESTA LA PAGHERAI "," PEN 
SA TU FAR MORIRE UNA POVERA RAGAZZA 
.." :rem 172 


DATA" VA BENE, ANDIAMO ...", @ , 1 2 , 1 , 1 1 
,3 :rem 0 

DATA, "OKAY, CAPO, ORA CHE HAI FATTO 
LA TUA", "BUONA AZIONE POSSIAMO AND 
ARE.." : rem 203 

DATA "COMUNQUE WEENA TI STA SEGUENDO 
" , "EHI , CAPO, CHE TU GLI ABBIA FATT 
O COLPO?" : rem 182 

DATA0 ,12,0 : rem 67 

DATA," 'LASCIA, LASCIA' . . .MA CREDI DI 
POTER" , "BUTTARE VIA TUTTO?" , 0 , 0 , 1 , 
4,0 :rem 24 

DATA, "VABBE' , LI BUTTO VIA", "MA POT 
EVANO SERVIRTI ... ",@ ,0, 1 , 3 ,0 

: rem 138 

DATA, "E' TRASCINATA VIA DALLA CORRE 
NTE", "POCHI ISTANTI ED AFFOGHERÀ'" 

: rem 177 

DATA" VUOI DECIDERTI A MUOVERTI O NO 
?", 0,0,0 : rem 57 

DATA, "E ' INZUPPATA ED E' ANCORA TRE 
MANTE", "MA RICAMBIA LO SGUARDO CON 
GRATITUDINE" : rem 193 

DATA0 ,0,0 : rem 1 9 

DATA, "LORO NON POSSONO AIUTARLA , SON 
O SCONVOLTI" , "E MENTRE TU TI GINGIL 
LI LEI" : rem 8’ 

DATA" SCOMPARE SOTT'ACQUA PER NON RI 
COMPARIRE" , "SEI TROPPO LENTO, CAPO, 
SVEGLIATI" : rem 127 


DATA"UN PO', COSI' NON CI VIVI A LU 
NGO QUI", 0,0,1 ,11 ,3 : rem 1 99 

DATA, "SONO VISIBILMENTE SOLLEVATI", 
"MA I RINGRAZIAMENTI ESPRESSI NELLA 
LORO" : rem 138 

DATA" LINGUA NON TI DICONO NIENTE", 0 
,0,0 :rem 76 

DATA, "MA SEI MATTO O COSA ??","TI M 
ETTI A GIOCHERELLARE QUI?", 0,0,0 

:rem 68 

DATA,,, "IL POZZO E’ ORA DAVANTI A T 
E",, "OLTRE IL PARAPETTO SCENDONO VE 
RSO IL" : rem 34 

DATA" BASSO PICCOLE PIATTAFORME MOLT 

O" , "DISTANZIATE TRA LORO",, 

: rem 190 

DATA"DAL BASSO SALE UN RUMORE SIMIL 
E AD UN", "BATTITO DI MACCHINE SOTTE 
RRANEE" , : rem 240 

DATA0 :rem 83 

DATA" WEENA TREMANTE SI E' MESSA IN 
DISPARTE" ,11,1,0,0 : rem 76 

DATA 3, 104,127,914 :rem 150 

DATA7 ,308,4,1 ,312, 3, 1,1 01 2, 3, 1,414, 
10, 0,414, 10,1, 714, 10, 0,71 4, 10,1 

treni 184 
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24400 DATA, "TORNIAMO NEL PRATO? OK...",@, 

12.0 : rem 1 2 

24410 DATA, "VA BENE . . . " , 0 , 1 2 , 0 :rem 23 

24420 DATA, "PIU' CHE UN POZZO SEMBRA UN C 

ONDOTTO DI", "ARIA: UNA CORRENTE CON 
TINUA SCENDE" : rem 36 

24421 DATA" VERSO IL BASSO" , 0 , 0 , 0 : rem 27 

24430 DATA, "LE LEVE SCOMPAIONO VERSO IL F 

ONDO:", "IL TONFO DELLA CADUTA NON A 
RRIVA MAI" : rem 54 

24431 DATA0,O, 1 ,4,0 :rem 205 

24440 DATA, "I FIAMMIFERI SI SPARGONO CADE 

NDO E" , "SPARISCONO NEL BUIO...", 0,0 
,1,3,0 : rem 203 

24450 DATA, "LA LUCE DEL FIAMMIFERO PENETR 

A PER POCHI" , "METRI NEL BUIO, E RIV 
ELA ALTRE" :rem 7 

24451 DATA" PICCOLE PIATTAFORME CHE SI INO 

LTRANO" , "SEMPRE PIU' IN BASSO... ",0 
,0,0 :rem 201 

24460 DATA, "INCOMINCI A SCENDERE, MA NON 

MANGI DA", "TROPPO TEMPO: LA STANCHE 
ZZA E LA" :rem 176 

24461 DATA" DEBOLEZZA TI TRADISCONO, METTI 

UN PIEDE", "IN FALLO E PRECIPITI NE 
L VUOTO" : rem 4 2 

24462 DATA0 , 0 , 1 , 0 , 0 :rem 205 

24470 DATA , "OK , COMINCIAMO LA DISCESA..." 

,0,15,0 : rem 1 57 

24480 DATA, "LA DISCESA E' DURA E TU SEI D 

EBOLE" , "NON MANGI DA TROPPO E LA TU 
A STANCHEZZA" : rem 14 

24481 DATA"TI TRADISCE: UN PIEDE SCIVOLA 

E TU TI", "TROVI A VOLARE NEL VUOTO" 
,0,0,1 ,0,0 :rem 1 48 

24490 DATA, "VA BENE, ANDIAMO GIU’...", 0,1 

5.0 :rem 83 
25000 DATA , , , "DURANTE LA DISCESA IL BATTI 

TO DIVENTA" , "SEMPRE PIU' FORTE ED O 
RA SEMBRA" : rem 34 

25010 DATA" VIC INISSIMO" , 0 :rem 15 

25100 DATA" IL BUIO NON PERMETTE DI VEDERE 
DI PIU'" ,3,1 , "ALL 'IMPROVVISO UNA M 
ANO AFFERRA" : rem 165 

25110 DATA 3 , 1 , "LA TUA GAMBA E CERCA DI ST 
RAPPARTI " , 3 , 1 , "DAL TUO PRECARIO SOS 
TEGNO" ,3,1 : rem 148 

25120 DATA"UNA MANO TI AFFERRA, TI STRAPP 
A DAL TUO", 3,0, "SOSTEGNO E TU RISCH 
I DI CADERE" : rem 38 

25130 DATA3,0, "ALLA DEBOLE LUCE VEDI UN P 
ASSAGGIO VERSO", 3, 2, "SUD CHE PORTA 
AD UNA SALA" : rem 24 3 

25140 DATA3 , 2 , "MENTRE IL TUO SOSTEGNO STA 
CEDENDO" ,3, 2, 0,1 :rem 65 

25200 DATA2 , 61 4 , 1 1 1 7 :rem 2 

25300 DATA3 , 1012,3,1 ,102,3,2,410,3,2 

:rem 237 

25400 DATA, "NON E' POSSIBILE, LE PIATTAFO 
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2541 0 

25420 

25421 

25430 

25440 

26000 

2601 0 
26100 

26110 

261 20 


26200 

26300 

26400 

26401 
2641 0 


2641 1 
26420 


26430 


26431 

26440 


26441 

27000 


27010 
271 00 


27110 


271 20 
27200 
27300 

27400 


RME SONO" , "TROPPO DI STANZIATE" , 0 , 0 , 
0 :rem 118 

DATA, "GIÀ', BRAVO FURBO, E CON COSA 
?", "SPUTANDOGLI ADDOSSO, EH?", 0,0,0 

:rem 59 

DATA, "IL MOSTRO CHE TI AVEVA AFFERR 
ATO SI", "RITRAE, MA LA PIATTAFORMA 
COMINCIA A" : rem 80 

DATA" SCRICCHIOLARE E NON CE NE SONO 
A PORTATA", "DI MANO ALTRE" , 0 , 0 , 1 , 3 
, 2 : rem 127 

DATA, "GIÀ', IL MOSTRO SEMBRA SPARIT 

0 IN QUELLA" , "DIREZIONE. .." ,0 , 1 6 ,1 , 

3,1 :rem 23 

DATA, "OKEY, QUI NON POTEVAMO CERTO 
RESTARE. .." ,0,1 6,1 ,3,1 :rem 103 

DATA,,, "IL BATTITO E' ORA FORTISSIM 

O" , "NON C ’E ' DUBBIO CHE LE MACCHINE 

CHE LO" : rem 205 

DATA" PRODUCONO SIANO QUI",0 

:rem 229 

DATA" AL BUIO PERO' NON SI VEDE NIEN 

TE", 3,1, "E STRANI MORMORII SI SENTO 
NO INTORNO" : rem 121 

DATA3 , 1 , "ALLA LUCE VEDI QUALCOSA DE 
LLA SALA" , 3 , 2 , "UN MUCCHIO DI PESANT 

1 SBARRE QUI" :rem 130 

DATA3 , 2 , "VICINO , ENORMI MACCHINE CH 
E LAVORANO", 3, 2, "ED UN'USCITA VERSO 


SUD", 3, 2, 0,1 : rem 136 
DATAI, 101 : rem 3 
DATA4, 1 02, 3, 2, 2 20, 3, 2, 1 01 2, 3,1 ,1 1 1 7 
,7,1 :rem 164 
DATA, "L'APERTURA DALLA QUALE SEI EN 
TRATO" , "ORA E' TROPPO IN ALTO PER A 
RRIVARCI" : rem 36 
DATA" NON PUOI USCIRE DI LA "',0,0,0 


:rem 179 

DATA, "I MOSTRI SI RITRAGGONO DAVANT 
I ALLA LUCE", "E TU RIESCI A PASSARE 
DI LA'" : rem 62 

DATA0, 17,1 ,3,1 : rem 5 

DATA, "OH BENE, ORA ABBIAMO ALMENO Q 
UALCOSA" , "CHE ASSOMIGLIA AD UN'ARMA 
. .",0,0,1 ,7,1 : rem 33 

DATA, "ALLA LUCE VEDI UNA MOLTITUDIN 
E DI MOSTRI", "CHE TI ATTORNIANO DOV 
UNQUE" : rem 228 

DATA" E CHE RESTANO SCONCERTATI DALL 
A FIAMMA", 0,0,1 ,3,2 :rem 185 

DATA, "QUALCUNO CADE, MA GLI ALTRI S 
I AGITANO", "E SI PREPARANO AD ATTAC 
CARTI" : rem 14 

DATA@ ,0,0 :rem 19 

DATA,,, "IN QUESTA SALA NON C’E'SUON 
O DI MACCHINE" , "MA I MORMORII MINAC 
CIOSI SONO" : rem 83 

DATA"ORA PIU' INTENSI", 0 :rem 213 
DATA" ED AL BUIO RISUONANO SINISTRI" 
,3,1, "ALLA LUCE APPARE UNA SALA MOL 
TO PIU"' : rem 1 57 

DATA3, 2, "PICCOLA, MA STIPATA DI QUE 
STI ESSERI", 3, 2, "VERSO EST UNO STRE 
TTO CUNICOLO" :rem 63 

DATA3, 2,@,1 :rem 1 1 2 

DATA2, 1 01 , 51 0 :rem 199 

DATA3,1 03,3,2,1 01 2,3,1 ,1117,7,1 


:rem 40 

DATA, "L'USCITA DA QUELLA PARTE E' B 
LOCCATA" , "DAI MOSTRI DELL’ALTRA SAL 


A" :rem 38 

27401 DATA" ANDARSENE DI LA' E' IMPOSSIBIL 
E", 0,0,0 :rem 254 

27410 DATA, "MOLTO VOLENTIERI, MA DA CHE P 
ARTE?", 0,0,0 : rem 2 

27420 DATA , "I MOSTRI DAVANTI ALLA LUCE SI 

RITIRANO" , "TU STRISCI NEL CUNICOLO 
STRETTO" : rem 168 

27421 DATA" POI QUESTO PIAN PIANO SI ALLAR 
GA","E TU ORA. . .",0,11 ,1 ,3,1 

:rem 51 

27430 DATA, "GLI ESSERI MOSTRUOSI TI CIRCO 

NDANO DA", "OGNI PARTE, ANCHE SE LA 
FIAMMA LI" : rem 17 

27431 DATA" FRENA UN PO ' " , 0 , 0 , 1 , 3 , 2 

:rem 22 

27440 DATA, "LA SBARRA COLPISCE QUALCOSA, 

MA I MOSTRI", "TI STRINGONO SEMPRE P 
IU'..." ^rem 154 

27441 DATA0 ,0,0 : rem 20 

28000 DATA,,, "ORA SEI ALL'INTERNO DEL MON 

UMENTO" , 0 : rem 193 

28100 DATA" ANCHE QUI MORMORII FANNO PENSA 
RE ALLA" , 3 , 1 , "PRESENZA DI QUEGLI ES 
SERI", 3,1 : rem 30 

28110 DATA" ALLA LUCE APPARE L'INTERNO DEL 
LA STATUA", 3, 2," {RED }LA MACCHINA E’ 
QUI! ! {BLK}",3,2 : rem 16 

28120 DATA"MA CI SONO ANCHE I MOSTRI A DI 

FENDERLA!", 3, 2, 0,1 : rem 240 

28200 DATA3, 104, 524, 11 17 :rem 199 

28300 DATA2 ,607,3,2,1012,3,1 :rem 123 

28400 DATA, "BE', SE LO DICI TU . . . " , 0 , 7 , 0 

: rem 1 2 

2841 0 DATA, "PAURA, EH? OK, ANDIAMO ..." ,0 , 
7,0 : rem 1 1 0 

28420 DATA, "I TUOI COLPI, ANCHE SE CAUSANO 

PERDITE" , "HANNO L'EFFETTO DI ECCIT 
ARLI DI PIU"' : rem 232 

28421 DATA" ED ESSI TI SI STRINGONO INTORN 

O" , 0 , 0 , 0 : rem 1 0 1 

28430 DATA, "ERA ORA !!",, "CHISSÀ ' CHE FINA 
LMENTE SI VADA VIA ! " , 0 , 1 9 , 1 , 3 , 1 

:rem 140 


28440 DATA, "LA PRIMA COSA CHE TI RIVELA L 
A LUCE", "SONO I MUSI BESTIALI DEGLI 

ESSERI" : rem 81 

28441 DATA"CHE SUBITO SI RITRAGGONO DALLA 

FIAMMA" ,0,0,1 ,3,2 :rem 138 

29000 DATA,,, "ORA SEI DI NUOVO SULLA MACC 
HINA" , "ED HAI DI NUOVO DAVANTI A TE 

I QUADRANTI" :rem 59 

29010 DATA0 :rem 86 

29100 DATA"E WEENA?NON VORRAI LASCIARLA 
{ RED } QU I DENTRO! {BLK}",1 1 ,1 ,0,1 

: rem 2 1 2 

29200 DATA2 ,707,1 1 1 7 : rem 9 

29300 DATA5, 21 5, 11, 1,308, 4, 1,308, 4,0, 1012 
,3,1,1308,4,2 :rem 101 

29400 DATA, "SALI, POI SCENDI, UFFA!!", "TE 

NE APPROFITTI CHE DEBBO OBBEDIRE.. 
.",0,18,0 : rem 249 

29410 DATA, "BRAVO FURBO, LA SBARRA HA COL 
PITO IL", "QUADRO COMANDI ED ORA LA 
MACCHINA" : rem 145 

2941 1 DATA" NON POTRÀ' PIU' PARTI RE !!!", 0 , 
0 , 1 , 0, 0 : rem 99 

29420 DATA, "BRAVO CAPO, LO SAPEVO CHE AVE 
VI UN CUORE", "MA ORA MUOVITI, O QUI 

CI FANNO" : rem 158 

29421 DATA" LA PELLE ! ! " , 0 , 0 , 1 , H , 2 

:rem 178 

29430 DATA, "HAI IMPARATO LA LEZIONE , EH?" , 

"OK! ! {RED {COMANDI A POSTO !!{ BLK }", 0 
, 0, 1 , 4 , 2 : rem 68 

29440 DATA, "GIÀ', E TU I COMANDI LI HAI L 

ASCIATI" , "CHISSÀ' DOVE! ORA DOBBIAM 
O STARE QUI!" :rem 227 

29441 DATA0,O, 1 ,0,0 :rem 207 

29450 DATA, "LA LUCE ALLONTANA GLI ESSERI 

PER UN", "ISTANTE, POI TORNANO ALLA C 
ARICA" : rem ’37 

29451 DATA0 ,0,0 :rem 23 

29460 DATA, "UFF... FINALMENTE !!", "RI LASSA 

TI, CAPO, ORA GUIDO IO!!" : rem 234 

29461 DATA"ORA RALLENTIAMO... E TU TI RIT 

ROVI. . .",@,2,1 ,2,1 : rem 46 
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DIVISIONE PERIODICI 



L O A 



di A. A. Ka patta n 

trad. e adatt. 

di S. Albarelli 



Ecco un simpatico programma 
che narra una storia e ne fa au- 
mentare Teff etto e la verosimili- 
tà con effetti sonori e grafici 
molto ben riusciti. 


Q uesto programma narra una picco- 
la storia, intercalando la narrazione 
con effetti grafici e sonori, proprio come 
facevano le trasmissioni radiofoniche di 
molti anni fa. 

Gli effetti sonori sono stati creati con 
molta ricchezza di particolari, ascoltan- 
do i suoni naturali e analizzandoli in ter- 


mini di altezza, volume, rumore, durate 
e ripetizioni, convertendo questi para- 
metri in istruzioni BASIC. 

Per un maggiore effetto visivo si consi- 
glia di regolare la luminosità del televi- 
sore in modo che eseguendo una poke 
36879,8 lo sfondo risulti completamen- 
te nero: si consiglia anche di spegnere 
le luci, per rendere più appariscenti gli 
effetti grafici stessi. 

Gli effetti sonori sono prodotti usando 
cicli FOR-NEXT uniti tra loro, per con- 
trollare la durata di configurazioni sono- 
re ripetitive e delle pause tra le varie 
configurazioni sonore. 


Gli effetti sonori e le loro 
caratteristiche 

Come esempio si può prendere in esa- 
me il canto dei grilli (vedere la figura). 
Esso consiste in una serie di “cri” (ci si 
consenta il termine) e di silenzi. 

Ogni “cri” è composto da cinque brevi 
note, tra le quali ci sono cinque brevi 
pause. 

Il tutto viene sincronizzato mediante dei 
loop e si ottiene il classico “cri-cri-cri”. 
Dopo un poco il volume decresce e l’ef- 
fetto sonoro termina. 

Un altro esempio può essere la pallina 
da ping pong che cade che è una serie 
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di suoni cortissimi e silenzi. 

Il silenzio tra un suono e l’altro decresce 
gradualmente, perché la pallina, ad 
ogni rimbalzo, raggiunge sempre un’al- 
tezza minore rispetto al rimbalzo prece- 
dente. 

Il suono vibrato della musichetta intro- 
duttiva è ottenuto alternando molto ve- 
locemente due note diverse. 

Il tuono e il fulmine sono simulati da un 
rapido decrescere di un rumore (la bot- 
ta dal suono secco) seguito da un rumo- 
re a bassa frequenza, che diminuisce 
gradualmente nel volume (rimbombo 
del fulmine). 

Il rumore del treno è una serie di sbuffi 
che accelerano. Tra uno sbuffo e l’altro 
c’è un silenzio, che man mano diminui- 
sce in durata, poiché il treno accelera. 
Infine il treno, quando ha raggiunto la 


massima velocità, sbuffa con una veloci- 
tà regolare. 

Il cambiamento di volume duran- 
te il suono 

Inoltre, il rumore del treno è arricchito 
dal fatto che il volume varia mentre il 
suono viene emesso. Questo compito 
viene svolto da un ulteriore ciclo FOR- 
NEXT. Il suono dell’UFO è inusuale, e 
in esso il suono aumenta e diminuisce 
in altezza. 

Infine il codice morse è prodotto da una 
serie di suoni di uguale frequenza, tra 
cui vengono intercalate pause di durata 
casuale. 

Queste sono le funzioni delle linee del 
programma: 

100-120 Cambia il colore dello scher- 
mo e scrive il titolo 


140-550 Tra queste linee si trovano i 
testi della storia 

150-190 Suona la musica introduttiva 
190 Fa vibrare l’ultima nota della 
musica introduttiva 

200-250 Crea l’effetto grafico e sonoro 
del fulmine 

290-320 Produce il rumore del treno 
360-440 Crea l’effetto grafico e sonoro 
dell’UFO 

470-480 Simula il codice morse 
510-520 Crea l’effetto sonoro della 
pallina da ping pong 
570-590 Visualizza il cielo stellato 
600-630 Simula il canto dei grilli e 
stampa “fine” 

640 Lascia lo schermo finale per 
qualche secondo e poi lo ri- 
porta alle condizioni normali 


Storia sonora per VIC 20 

100 POKE36879 ,108: V=36878 :rem 115 

1 1 0 PRINT" {CLR } " : FORI = 1 T07 : PRINT: NEXT: PRI 
NTTAB (4) " {WHT} { 2 GIU'}*STORIA SONORA 
*" : rem 1 1 0 

120 FORL= 1 T03000 : NEXT :rem 19 

1 30 PRINT" {CLR}" : POKE36879 , 8 : FORI = 1 T09 : PR 
INT: NEXT :rem 202 

140 PRINTTAB (2) " {CYNjERA UNA NOTTE BUIA 
{ 4 SPAZI}": PRINTTAB (4) "E TEMPESTOSA. 
. . " : rem 1 

145 PRINT" (GIU* }E TU STAVI { 2 SPAZI }GIOCA 
NDO A{GIU 1 } { 3 SPAZI }PING PONG CON UN 
{ 3 SPAZI } {GIU* }{ 7 SPAZI }AMICO. " 

: rem 1 1 2 

1 50 POKEV , 1 5:S = 36874: FORL = lTO 2000: NEXT 

:rem 60 

1 60 POKES ,195: FORL= 1 TO600 : NEXT: POKES ,20! : 

FORL = 1 TO 2 0 0 : NEXT : rem 117 

! 70 POKES , 203 : FORL = l TO300 : NEXT: POKES , 0 : FO 
RL=! TO! 00 : NEXT : rem 5 

180 POKES ,1 95 : FORL = 1 TO200: NEXT: POKES f 0:FO 
RL= 1 TO200 : NEXT :rem 16 

190 FORT = 1 TOl 2 : POKES ,21 1 : FORL = 1 TO50 : NEXT: 
POKES ,213: FORL = 1 TO 50 : NEXT : NEXT : POKES , 
0 :rem 140 

200 PRINT" {CLR}" :FORL= ITO 1000: NEXT: POKE36 
879,25: S = 36877 :rem 148 

21 0 FORL = 250T0200STEP- 1 : POKES ,L: NEXT: POKE 
S, 0:POKE36879,8:FORL=!TOl 00: NEXT 

:rem 148 

220 POKE368 79 , 25 : FORL = 250T0 200STEP- ! : POKE 
S , L : NEXT: POKES , 0 : POKE368 79 , 8 : rem 26 

230 FORL = 1 5T04STEP-. 04: POKEV, L: POKES,! 30: 

NEXT : rem 105 

240 POKE36878 , 1 5 : POKE36879 , 2 5 : FORL = 2 50TOl 
8 0STEP- 1 : POKES ,L: NEXT: POKES , 0 : POKE368 
79,8 :rem 46 

250 FORL = l 5T01STEP-. 03 : POKEV, L: POKES,! 28: 
NEXT : rem 110 


260 FORI = lT06: PRINT: NEXT: PRINT" IMPROWIS 
AMENTE, DA" : PRINT: PRINT" LONTANO , ODI 
UN TRENO" : rem 180 

270 PRINTTAB (5) "{GIU' }CHE ARRIVA..." 

:rem 247 

280 FORL = 1 T04000 : NEXT :rem 27 

290 PRINT" {CLR}" :L=1 :rem 243 

300 FORD = 200TOl 5STEP- 5 : L=L+ . 3 : POKEV , L 

: rem 6 

3! 0 POKES, 21 0:FORT=!TO60:NEXTT: POKES, 0 : FO 
RT= ! TOD : NEXTT : NEXTD :rem 250 

320 FORL=l 5TOOSTEP-. 3: POKEV, L: POKES, 200: F 
ORT= 1 TO 4 0 : NEXTT : POKES , 0 : FORT= 1 TO 4 0 : NE 
XTT : NEXTL :rem 4 

330 FORI =lTO 8: PRI NT: NEXT: PRI NTTAB (4) "AD U 
N TRATTO IL" : PRINT: PRINTTAB (2) "CONDUT 



TORE URLA" 

: rem 

1 84 

340 

PRINTTAB (19) " {SU }UN" : PRINT: 

PRINTTAB (4 


) "UFO , GUARDA!!!" 

: rem 

! 37 

350 

FORL = 1 TO 4 0 0 0 : NEXT 

: rem 

25 

360 

PRINT" {CLR}":C=36879: POKEC , 

1 38: POKEV, 


1 5:S=36874: GOSUB430 

: rem 

1 80 

370 

POKEC , 1 1 0 : GOSUB440 

: rem 

28 

380 

POKEC, 25:GOSUB430 

: rem 

241 

390 

POKEC, 93:GOSUB440 

: rem 

248 

400 

POKEC,! 27 :GOSUB430 

: rem 

29 

4! 0 

POKEC, 76:GOSUB440 

: rem 

242 

420 

POKEC , 8 : POKES , 0 : GOTO 450 

:rem 

1 44 

430 

FORL= 1 80TO254: POKES, L:FORM= 

ITO 5: NEXTM 


: POKES , 0 : NEXTL : RETURN 

: rem 

131 

440 

FORL=254TOl 80STEP-1 : POKES, L 

: FORM= 

1 T05 


: NEXTM : POKES , 0 : NEXTL : RETURN 

: rem 

30 

450 

PRINT" {CLR}" :FORI=l TO 8: PRINT: NEXT 

: PRI 


NT" UN MESSAGGIO SEGRETO" 

: rem 

86 

460 

PRINT: PRINT" E’ EMESSO DALL 

'UFO. . 

ti 



: rem 

244 

470 

FORM=l TO30 : POKEV, 1 5 : POKE36876 ,200 

: FOR 


L= 1 TO ( I NT ( RND ( 1 ) *80) ) : NEXT 

: rem 

69 
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480 POKE36876,0: FORL= 1 TO ( INT (RND ( 1 ) *80) ) : 

NEXT: NEXT : rem 4 2 

490 PRINT" {CLR } " : FORI = 1 T09 : PRINT: NEXT: PRI 
NT" DALLO { 2 SPAZI } STUPORE LASCI" 

:rem 10 

500 PRINT: PRINT"CADERE LA { 2 SPAZI }TUA PA 
LLINA{GIU 1 }DA PING PONG PER TERRA" 

:rem 166 

510 POKEV, 1 5:S=36874 :rem 131 

520 FORD=200TO0STEP- 5: POKES , 250 : FORT = l T02 
: NEXTT : POKES , 0 : FORT= 1 TOD : NEXTT : NEXTD 

: rem 114 

530 PRINT" {CLR } " : FORI = 1 T07 : PRINT: NEXT: PRI 
NTTAB ( 3 ) "IL RUMORE CESSA," :rem 94 
540 PRINT: PRINT"E LE STELLE { 2 SPAZI }BRIL 
LANO." : rem 79 


550 PRINT" { 3 SPAZI {MENTRE I GRILLI" :PRIN 
T: PRINT"COMINC IANO A FRINIRE.." 

: rem 160 

560 FORL=l T05000 : NEXT :rem 29 

570 PRINT" {CLR} " : POKE36879 ,104: FORL=l TO20 

:rem 27 

580 X=INT(RND (1 ) *506) :rem 153 

590 POKE7680+X,46:POKE38400+X,7 :NEXT 

: rem 130 

600 S = 3 6 8 7 6 : FORL = 1 5TOl STEP- . 5 : POKEV, L 

:rem 27 

61 0 F0RN=1T05: POKES, 243: F0RT=1T03: NEXTT : P 
OKES , 0 : FORT=l T08 : NEXTT :rem 188 

620 NEXTN:F0RT=1T01 00: NEXTT: NEXTL 

:rem 206 

630 FORI=lTOlO: PRINT: NEXT: PRINTTAB (8) " 


n 


Sensazionale/ 


AGGIUNGI 16 K 
ALLA RAM 
DEL TUO C-16 

Una cartridge della famosa ditta inglese 
Stonechip Electronics, ti consentirà di potenziare il 
tuo computer con nuove grandi prestazioni. 

Basta inserirla nell’apposita presa e avrai subito 
16 K in più di memoria! 

Garanzia completa di sei mesi. 



StimPèm 


10 CASSETTE C-20 
A LIRE 12.000 + iva 


resente 

■■I 


Nastro professionale AGFA PE619 
specifico per computer. 

Box trasparente in Kofil, 
termoresistente, assemblato con 
5 viti di acciaio. Scorrimento su 
perni di acciaio lubrificati. 

BOX CON 10 FLOPPY DISK 

PDMagn€tics 

5,25” Singola Faccia Doppia Densità 
Error Free 100% - Garantiti 

Ottimi floppy da cinque pollici ad un 
prezzo eccezionale! 

solo LIRE 24.750 + iva 



Ritagliare e spedire in busta chiusa il presente 

MODULO D’ORDINE 

Spett.le APCO s.r.l. - Cas. Post. 239 
10015 IVREA - TO 

Desidero ricevere quanto da me contrassegnato 
con X. Pagherò direttamente al postino, al rice- 
vimento della merce, gli importi qui elencati, che 
sono comprensivi di IVA e spese di imballo e 
contrassegno. 

□ N Espansioni di memoria C-16 

caduna a Lire 87.000 

□ N Confezioni 10 Cassette C-20 

caduna a Lire 1 5.000 

□ N Box 10 Floppy disc SFDD 

caduno a Lire 30.000 

Contributo fisso spese postali Lire 3.000 


NOME E COGNOME 


ì 


CITTÀ 
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di D. Sanner 

trad. e adatt. 

di M. Cristuib Grizzi 




Ecco ara modo per dare ira soffio 
di vita alle vostre schermate a 
colori: questo articolo - insieme 
ai due programmi dimostrativi - 
spiega come utilizzare il cosid- 
detto “modo blink” con il vostro 
computer. 


A vete mai visto il modo “video blink” 
proprio dei computer Apple II, e 
desiderato di possedere una caratteri- 
stica analoga sul vostro Commodore? 
Lo scopo principale del modo blink con- 
siste nel permettere ai caratteri del te- 
sto di lampeggiare (blink) in due diversi 
colori a varie velocità. Per esempio, po- 
tete istruire il modo blink così che il 
lampeggio avvenga con i colori bianco 
e nero: tutti i caratteri neri presenti sul 
video lampeggeranno, alternando il 
proprio colore dal nero al bianco. Natu- 
ralmente, la scelta non è ristretta sola- 
mente al bianco ed al nero, ma si po- 
tranno avere otto colori, che si alterna- 
no agli altri otto e in alcuni casi partico- 
lari si potranno ottenere tutti e 16 i colo- 
ri lampeggianti in colori diversi. 

L’istruzione USR 

Esistono nella memoria del computer 
due particolari byte riservati alla funzio- 
ne USR: essi contengono 1* indirizzo (nel 
classico formato byte basso/byte alto) 
della locazione di memoria che costitui- 
sce l’inizio della routine in linguaggio 
macchina chiamata da USR. 

Il controllo di una routine di interrupt 
come quella di blink può risultare al- 
quanto complesso, ma le caratteristiche 
della funzione USR permettono di risol- 
vere molti problemi. 

USR consente infatti di inviare molto 
facilmente un parametro alla routine in 
linguaggio macchina, a differenza di 
quanto avviene con SYS; inoltre, USR 
è in grado di restituire al programma 
BASIC un parametro al termine del- 
l’esecuzione della routine in linguaggio 
macchina. 


Dal momento che la funzione USR resti- 
tuisce un valore, occorre assegnare 
questo valore a una variabile: 

X=USR (dato) 

dove dato è il numero inviato alla routi- 
ne in linguaggio macchina, e la variabile 
X conterrà invece il valore restituito dal- 
la routine stessa al termine della sua 
esecuzione. 

Come utilizzare il modo blink 

Il primo programma listato in fondo a 


questo articolo contiene la routine di 
blink, mentre i seguenti sono dimostrati- 
vi del primo. 

Esistono molteplici comandi che è possi- 
bile passare alla routine di blink attra- 
verso l’istruzione USR: naturalmente, i 
vari comandi saranno rappresentati da 
numeri. 

Ad esempio, per abilitare il modo blink 
si effettuerà una chiamata del tipo 
X=USR(4096). 

In particolare, i comandi disponibili (e 
utilizzabili soltanto in modo program- 
ma) in modo blink sono: 
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X=USR(4096) abilita il modo blink 
X=USR(8192) disabilita il modo blink 

X=USR (1024+(I6*c2)+cl) effet- 
tua il blink del colore cl nel colore c2: 
tutti i caratteri presenti sullo schermo 
con il colore cl lampeggeranno, alter- 
nando il colore cl al colore c2. Natural- 
mente, cl e c2 sono dei codici colore 
da 0 a 15. 

X=U$R(2048+cl) termina il blink 
del colore cl. Si noti che cl deve essere 
il colore “originario” e non il colore in 
cui avviene il blink. 

X=USR(16384+t) regola il ritardo 
del blink, ovvero il tempo intercorrente 
tra un lampeggio e l’altro. Ogni unità 
del parametro t equivale a 1/60 di se- 
condo: se ad esempio t vale 1, il blink 
avverrà ogni sessantesimo di secondo, 
se t vale 60, il blink avverrà a intervalli 
di un secondo, eccetera. 

11 parametro t può assumere valori da 
1 a 16384 (quest’ultimo equivalente a 
un ritardo di circa quattro minuti e mez- 
zo). Si noti che questa temporizzazione 
non agisce soltanto sul blink, ma anche 
sull’esecuzione dei programmi BASIC e 
in generale su tutte le operazioni effet- 
tuate dal computer (a causa del sistema 
di intercettazione degli interrupt su cui 
si fonda il funzionamento della routine 
di blink). 

X=USR(512+cl) controlla se il blink 
è abilitato per il colore cl: in caso affer- 
mativo la variabile X conterrà il codice 
del colore in cui cl sta lampeggiando; 
in caso negativo (cl non lampeggiante) 


la variabile X sarà posta uguale al valo- 
re di cl stesso. 

X=USR(256) fa in modo che tutti i 
colori presenti sullo schermo lampeggi- 
no su se stessi (quindi senza alcun effet- 
to ottico nella visualizzazione). 

Alcuni suggerimenti per 
l'utilizzo 

In primo luogo si tenga presente che un 
colore non può lampeggiare in più di un 
colore (non è ad esempio possibile far 
lampeggiare il colore nero nei colori 
giallo e verde, mentre sarà possibile far 
lampeggiare il nero nel giallo oppure 
nel verde). 

Inoltre, ogni colore deve lampeggiare in 
un altro colore che non sia già utilizzato 
per altri blink: se il nero sta lampeggian- 
do in giallo, il rosso potrà lampeggiare 
in qualsiasi colore, tranne il giallo, ecce- 
tera. 

Se si desidera modificare il colore in cui 
lampeggia un certo colore, occorre 
sempre disabilitarne preventivamente il 
blink: ad esempio, se il nero sta lampeg- 
giando in giallo e decidiamo di farlo lam- 
peggiare in verde, dovremo per prima 
cosa disabilitare il blink del nero, e quin- 
di abilitarlo sul verde. 

Dal momento che in queste operazioni 
la routine di blink attende che il colore 
sia ritornato quello originario prima di 
procedere, a seconda del ritardo adot- 
tato può essere che in corrispondenza 
di questi comandi si verifichino delle 
pause più o meno lunghe. Un modo per 
aggirare questa caratteristica può esse- 


re l’utilizzo delle seguenti linee di pro- 
gramma: 

10 X=USR (2048+6) : REM DISABILITA 
IL BLINK DEL COLORE BLU 

20 X=USR (1 6384+1 ) :REM PONE IL R 
I TARDO AD 1/60 DI SECONDO 
30 X=USR(512 + 6) : IFX< >6THEN30 : RE 
M ATTENDE 

40 X=USR (1 6384 + 600) : REM RIPRIST 
INA IL RITARDO ORIGINARIO 

le quali presuppongono che il ritardo 
sia stato originariamente regolato su un 
valore piuttosto alto (10 secondi). Può 
darsi si debbano attendere 10 secondi 
quando si invia il comando “ferma il 
blink del colore blu”, dal momento che 
la routine attende che il colore sia ritor- 
nato blu prima di fermarlo. Per sveltire 
questa operazione la linea 20 modifica 

11 ritardo su 1/60 di secondo, e questo 
fa in modo che il blink venga disabilitato 
quasi subito. La linea 40 provvede poi 
a ripristinare il ritardo sul valore origi- 
nario. 

Note per il caricamento dei 
programmi 

Il primo programma, come detto, con- 
tiene le routine in linguaggio macchina 
che rendono possibile il modo blink. I 
due programmi seguenti sono invece di- 
mostrativi e richiedono pertanto, prima 
di essere caricati e mandati in esecuzio- 
ne, che le routine di blink siano presenti 
in memoria. Prima di utilizzare il pro- 
gramma 2, oppure il programma 3, oc- 
correrà quindi sempre caricare e attiva- 
re preventivamente il programma 1. 


Routine di blink versione per C16-Plus/4 

100 PRINT" {CLR} ATTENDERE. . . " : FORI = 1 5360TO 
1 571 4 : READ A: POKEI , A: X=X+A: NEXT 





: rem 

40 

no 

IFX031 259THENPRINT"ERRORE NELLE 

DATA 


! " :STOP 

: rem 

241 

1 20 

DATA 

032, 113,1 52,1 20,042,042 

,17 6 
: rem 

21 2 

130 

DATA 

021 ,042,1 76,032,042,1 76 

,042 
: rem 

220 

140 

DATA 

042,1 76,087,042,1 76,054 

,042 
: rem 

237 

1 50 

DATA 

176,101 ,042,176,108,168 

,144 
: rem 

237 

1 60 

DATA 

121 ,074,074,141 ,094,061 

,140 
: rem 

226 

170 

DATA 

093,061 ,238,097,061 ,056 

,176 
: rem 

250 

1 80 

DATA 

105,1 69,206,1 41 ,021 ,003 

,169 
: rem 

229 

190 

DATA 

014,141 ,020,003,056,176 

,092 
: rem 

224 

200 

DATA 

169,060,141 ,021 ,003,169 

,156 
: rem 

226 

210 

DATA 

141 ,020,003,169,026,141 

,090 
: rem 

21 5 

220 

DATA 

061 ,056,176,074,1 52,041 

,01 5 
: rem 

228 

230 

DATA 

170,1 52,041 ,240,074,074 

,074 
: rem 

227 


240 

DATA 

074,1 57,042,061 ,1 57,074,061 

250 

DATA 

: rem 

170, 1 52,041 ,01 5,1 57,026,061 

260 

DATA 

: rem 

1 57,058,061 ,056,1 76,044,1 52 

270 

DATA 

: rem 

041, 015, no, 1 68, 189, 042, 061 

280 

DATA 

: rem 

170, 1 52,1 53,074,061 ,1 38,1 57 

290 

DATA 

: rem 

058,061 ,056,176,022,1 52,041 

300 

DATA 

: rem 

01 5,1 70, 1 88,042,061 ,056,1 76 

31 0 

DATA 

: rem 

01 6,1 60,01 5,1 52,1 53,074,061 

320 

DATA 

: rem 

153,058,061 ,1 36,01 6,246,230 

330 

DATA 

: rem 

21 1 ,1 60,001 , 1 69,000,08 8,1 08 

340 

DATA 

: rem 

244,002,1 73,097,061 ,208,01 0 

350 

DATA 

: rem 

206,095,061,208,113,206,096 

360 

DATA 

: rem 

061 ,016,108,048,003,206,097 

370 

380 

DATA 

DATA 

: rem 

061 ,173,094,061 ,141 ,096,061 

: rem 

173,093,061,141,095,061,169 

390 

DATA 

: rem 

000, 1 33,208,1 69,01 1 ,133,209 


: rem 


236 

224 

244 

236 
240 
235 
234 
221 
230 
221 
226 

237 
233 

238 
246 
227 
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400 

DATA 

169,026,077,090, 06i ,1 4i ,090 


250 

COLOR 0,1, 7: COLOR 4,1,7 

: rem 

179 



: rem 

235 

270 

X=USR(EB):IF X=0 THEN530: 

REM ** 

ABIL 

410 

DATA 

061 ,208,002,169,042,141 ,250 



ITA IL BLINK MODE 

: rem 

231 



: rem 

221 

280 

C$=RD$ 

: rem 

248 

420 

DATA 

060,141 ,010,061 ,173,090,061 


290 

GOSUB450 

: rem 

1 80 



: rem 

21 5 

300 

X=USR (MB+ (1 6*2) +0) : REM ** 

NERO IN 

ROS 

430 

DATA 

208, 023, 165, 211, 240, 01 9, 198 



SO 

: rem 

1 1 1 



: rem 

234 

310 

X=USR (MB+ ( 1 6* 3) +1 ) :REM ** 

BIANCO 

IN C 

440 

DATA 

21 1 ,1 60,01 5,1 85,058,061 ,1 53 



I ANO 

: rem 

1 90 



: rem 

230 

320 

X=USR (MB+ (1 6*7) +4) : REM ** 

VIOLA IN Gl 

450 

DATA 

026,061 ,1 85,074,061 ,1 53,042 



ALLO 

: rem 

227 



: rem 

233 

330 

X=USR (SD+1 4 ) : REM ** VELOCITA’ DI 

BLI 

460 

DATA 

061,136,016,241 ,160,000,177 



NK 

: rem 

1 38 



: rem 

225 

340 

PRINT: PRINT" {PUR} { 3 SPAZI }* *ATTENZIO 

470 

DATA 

208,041 ,015,170,189,026,061 



NE!** " 

: rem 

1 49 



: rem 

235 

350 

PRINT: PRINT" {WHT}UN TASTO 

PER CAMBIAR 

480 

DATA 

145,208,169,004,133,210,160 



E" 

: rem 

1 26 



: rem 

231 

360 

GOSUB530 

: rem 

177 

490 

DATA 

232,177,208,041 ,015,170,189 


370 

X=USR (SB+0) :REM ** FERMA IL BLINK 

DEL 



: rem 

244 


NERO 

: rem 

85 

500 

DATA 

026,061 ,145,208,136,208,243 


380 

X=USR (VB+0) : IF XOO THEN380 : REM ** AT 



: rem 

231 


TENDE PER IL NERO 

: rem 

42 

510 

DATA 

1 98,209,1 98,21 0,208,237,076 


390 

X=USR(MB+ (1 6*5) +0) :REM ** 

NERO IN 

VER 



: rem 

253 


DE 

: rem 

91 

520 

DATA 

014,206,000,001 ,002,003,004 


400 

C$=GR$ :GOSUB450 

: rem 

72 



: rem 

1 92 

410 

GOSUB530 

: rem 

173 

530 

DATA 

005,006,007,008,009,01 0,01 1 


420 

X=USR (SB+0) : REM ** FERMA IL NERO 




: rem 

208 



: rem 

1 2 

540 

DATA 

012,013,014,015,000,001 ,002 


430 

X=USR(VB+0) : IFXOO THEN430 

: REM ** 

ATT 



: rem 

192 


ENDE PER IL NERO 

: rem 

34 

550 

DATA 

003,004,005,006,007,008,009 


440 

GOTO 280 

: rem 

1 07 



: rem 

214 

450 

PRINT" {HOME} {WHT } ATTENZIONE-ATTENZION 

560 

DATA 

010,011 ,012,013,014,015,000 



E": PRINT 

: rem 

1 20 



: rem 

1 94 

460 

PRINT" {BLK} { 3 SPAZI }CODICE ALLARME 

570 

DATA 

001,002,003,004,005,006,007 



{ 2 SPAZI}" 

2 rem 

160 



: rem 

202 

470 

PRINT" {BLU} { 3 SPAZI }U{ 13 

" 


580 

DATA 

00 8, 009, 010, 011, 012, 013, 014 




2 rem 

233 



: rem 

207 

480 

PRINT" {BLU} { 3 SPAZI }-_{ 13 

SPAZI } 

_ ti 

590 

DATA 

01 5, 000, 001, 002, 003, 004, 005 




2 rem 

70 



: rem 

1 97 

490 

PRINT" { 3 SPAZI }"C$ 

2 rem 

213 

600 

DATA 

006,007,008,009,010,011 ,012 


500 

PRINT" {BLU} { 3 SPAZI }-{ 13 

SPAZI } 

ii 



: rem 

204 



2 rem 

63 

610 

DATA 

013,014,01 5,000,000,001 ,000 


510 

PRINT" {BLU }{ 3 SPAZI }j{ 13 

*}K " 




: rem 

1 85 



2 rem 

219 

620 

DATA 

000,000,000,000,000 :rem 

50 

520 

RETURN 

2 rem 

119 





530 

TX=1 0 : TY=20 

2 rem 

1 04 





540 

GET A$:TY=TY-1 :IF TY<0 THEN TY=20 

2X=U 

Dea 

io: programma l 



SR (SD+TX) :TX^TX-1 : IF TX=0 

THEN TX 

= 1 

100 

POKE56 ,60 : POKE55, 0:CLR :rem 

7 



2 rem 

74 

no 

Vi = 1 281 : V2= 1 282 :CO = 1 339:HI = 60 


550 

CT$=" " 2 IF TX/2=INT (TX/2) THEN CT$ 

= "Q 



: rem 

53 



2 rem 

1 10 

1 30 

POKEV1 , 0 : POKEV2 , HI : rem 

84 

560 

PRINT" {HOME} { 16 GIU’}" 

2 rem 

143 

1 50 

SD = 1 6384 : REM ** RITARDO :rem 

247 

570 

X=USR (VB + 0) : REM ** COLORE 

IN CUI 

E* A 

1 60 

DB= 81 92 : REM ** DISAB. BLINK 



TTIVATO IL BLINK DEL NERO 

2 rem 

3 



: rem 

1 61 

580 

POKECO , X : REM ** MODIFICA COLORE CARAT 

1 70 

EB = 4096 : REM ** ABILITA BLINK 



TERE IN COLORE DI BLINK 

2 rem 

71 



: rem 

7 

590 

PRINTTAB (TY) ;CT$; 

2 rem 

49 

1 80 

SB=2048 : REM ** FERMA BLINK COLORE 

600 

IF A$=" " THEN 540 

2 rem 

21 1 



: rem 

74 

610 

X=USR (SD + 1 4 ) : RETURN 

2 rem 

1 84 

1 90 

MB= 1024 : REM ** INIZIA BLINK COLORE 







: rem 

151 





200 

VB =512 : REM ** VALORE DEL COLORE IN 

Den 

io: programma 2 




BLINK : rem 

21 8 





210 

RC = 2 5 6 : REM ** FERMA BLINK DI TUTTI 

100 

POKE56 , 60 : POKE55 , 0 :CLR 

2 rem 

7 


I COLORI : rem 

1 35 

1 10 

NU = 15: REM NU = 7 FOR VIC 

2 rem 

21 4 

220 

REM * * *DIMOSTRAZIONE DEL BLINK MODE 

1 20 

Vi = 1 281 : V2= 1 2 82 :CO=1 339 : HI 

= 60 




: rem 

72 



2 rem 

54 

230 

RD$ = " 

- {BLK} *** ROSSO *** {BLU :GR$=" 

1 40 

POKEV 1 , 0 : POKEV2 , HI 

2 rem 

85 


-{blkT*** VERDE ***{BLU}-":PRINT" 


1 50 

REM ** MODIFICARE QUESTI VALORI PER C 


Tclr} 

" :rem 

1 88 


AMBIARE I COLORI 

2 rem 

117 
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160 

DIMCT(NU) 



: rem 

252 

1 70 

FORI = OTONU 

:CT ( I ) 

=NU- 1 : NEXT : rem 

181 

1 90 

SD=1 6384 : 

REM 

★ ★ 

RITARDO :rem 

251 

200 

DB=81 92 : 

REM 

★ * 

DISABILITA BLINK 






: rem 

225 

210 

EB = 4096 : 

REM 

* * 

ABILITA BLINK 






: rem 

2 

220 

SB= 2048 : 

REM 

★ * 

FERMA BLINK COLORE 





: rem 

69 

230 

MB=1 024 : 

REM 

★ * 

INIZIA BLINK COLORE 





: rem 

1 46 

240 

VB= 51 2 : 

REM 

** 

RETURN VALUE OF BLIN 


KING COLOR 


: rem 

52 

250 

RC = 2 5 6 : 

REM 

★ * 

FERMA BLINK TUTTI 

I 


COLORI 



: rem 

254 


260 REM *** DIMOSTRAZIONE DEL BLINK MODE 

:rem 76 

270 X=USR (DB) : REM ** OCCORRE PRIMA DISAB 
ILI TARLO • . . : rem 68 

280 PRINT" {CLR } " :rem 254 

300 COLOR 0,1 , 7 : COLOR 4,1,7 :rem 175 

320 FOR L=0 TO NU : REM ** BLINK DI TUTTI 
I COLORI : rem 149 

330 CL=CT (L) : rem 1 50 

340 X=USR (MB+ (CL* 1 6 ) +L) : REM ** COLORE CO 
N BLINK : rem 1 59 

350 POKECO ,L: REM ** MODIFICA COLORE CORR 
ENTE IN X : rem 148 

360 PRINT"BLINK DA"L" IN"CL : rem 21 

370 NEXT L : rem 37 

380 X=USR (SD+60 ) : REM * BLINK PER 1 SECON 



DO 

: rem 

1 26 

390 

PRINT: PRINT"UN TASTO PER 

INIZIARE" 




: rem 

1 64 

400 

GETA$ : IFA$=" " THEN400 

: rem 

75 

41 0 

X=USR (EB) 

: rem 

252 

420 

END 

: rem 

109 


Routine di blink versione VIC 20 

1 00 PRINT" {CLR } ATTENDERE . . " :FORI=71 68T074 
90 : READ A: POKEI , A: X=X+A : NEXT :rem 1 6 3 

110 IFX< > 3006 2THENPRI NT" {BLK} ERRORE NELLE 
DATA": STOP : rem 87 

120 DAl*A 032,1 70,209,1 20,042,042,1 76 

: rem 2 1 8 

130 DATA 021,042,176,032,042,176,042 

:rem 220 

140 DATA 042,176,087,042,176,054,042 

:rem 237 

150 DATA 176,101,042,176,108,168,144 

:rem 237 

160 DATA 121,074,074,141,062,029,140 

: rem 225 

170 DATA 061,029,238,065,029,056,176 

:rem 248 

180 DATA 105,169,234,141,021,003,169 

:rem 230 

190 DATA 191,141,020,003,056,176,092 

:rem 230 

200 DATA 169,028,141,021,003,169,156 

:rem 230 

210 DATA 141,020,003,169,026,141,058 

:rem 219 

220 DATA 029,056,176,074,152,041,015 

:rem 232 

230 DATA 170,152,041,240,074,074,074 

:rem 227 


DATA 074,157,034,029,157,050,029 

:rem 239 

DATA 170,152,041,015,157,026,029 

:rem 228 

DATA 157,042,029,056,176,044,152 

:rem 241 

DATA 041,015,170,168,189,034,029 

:rem 241 

DATA 170,152,153,050,029,138,157 

:rem 238 

DATA 042,029,056,176,022,152,041 

:rem 232 

DATA 015,170,188,034,029,056,176 

: rem 239 

DATA 016,160,007,152,153,050,029 

:rem 220 

DATA 153,042,029,136,016,246,230 

:rem 227 

DATA 254,160,001,169,000,088,108 

: rem 228 

DATA 005,000,173,065,029,208,010 

: rem 2 1 8 

DATA 206,063,029,208,113,206,064 

:rem 231 

DATA 029,016,108,048,003,206,065 

:rem 232 

DATA 029,173,062,029,141,064,029 

:rem 240 

DATA 173,061,029,141,063,029,169 

: rem 244 

DATA 000,1 33,2 51 , 1 69,1 51 , 1 33,2 52 

:rem 228 

DATA 169,026,077,058,029,141,058 

:rem 247 

DATA 029,208,002,169,034,141,250 

:rem 226 

DATA 028,141,010,029,173,058,029 

:rem 231 

DATA 208,023,165,254,240,019,198 

:rem 2 4 1 

DATA 254,160,007,185,042,029,153 

:rem 235 

DATA 026,029,185,050,029,153,034 

:rem 236 

DATA 029,136,016,241,160,000,177 

:rem 229 

DATA 251,041,015,170,189,026,029 

:rem 237 

DATA 145,251,169,002,133,253,160 

:rem 234 

DATA 250,177,251,041,015,170,189 

:rem 242 

DATA 026,029,145,251,136,208,243 

: rem 233 

DATA 198,252,198,253,208,237,076 

: rem 2 

DATA 191,234,000,001,002,003,004 

: rem 199 

DATA 005,006,007,000,001,002,003 

:rem 194 

DATA 004,005,006,007,000,001,002 

:rem 196 

DATA 003,004,005,006,007,000,001 

:rem 198 

DATA 002,003,004,005,006,007,000 

:rem 200 

DATA 000,001,000,000,000,000,000 

: rem 175 

DATA 000 : rem 71 


240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

4i 0 

420 

430 

440 

450 

460 

470 

480 

490 

500 

51 0 

520 

530 

540 

550 

560 

570 

580 
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Demo: programma I 


100 

POKE56 , 28 : POKE55 

, 0 :CLR 

: rem 

1 1 

1 20 

Vi =1 : V2=2:CO=i 

646 

:HI=28 

: rem 

21 2 

1 30 

POKEVl , 0 : POKEV2 , 1 

HI 

: rem 

84 

1 50 

SD = 1 6384 : REM 

* * 

RITARDO :rem 

247 

160 

DB=8192 : REM 

★ * 

DISAB. 

BLINK 






: rem 

161 

1 70 

EB=4096 : REM 

* * 

ABILITA BLINK 






: rem 

7 

180 

SB=2048 : REM 

* * 

FERMA 

BLINK COLORE 





: rem 

74 

190 

MB=1 024 : REM 

** 

INIZIA 

BLINK COLORE 





: rem 

1 51 

200 

VB= 51 2 : REM 

* * 

VALORE 

DEL COLORE 

: in 


BLINK 



: rem 

21 8 

210 

RC = 256 : REM 

** 

FERMA 

BLINK DI TUTTI 


I COLORI 



: rem 

1 35 


540 GET A$ : TY =TY - 1 : 1 F TYCO THEN TY = 20:X=U 



SR (SD+TX) :TX=TX-1 : IF TX=0 

THEN TX 

= 1 



: rem 

74 

550 

CT$=" " : IF TX/2=INT (TX/2) THEN CT$ 

= "Q 


II 

: rem 

1 io 

560 

PRINT" {HOME} { 16 GIU'}" 

: rem 

i 43 

570 

X=USR(VB+0) :REM ** COLORE 

IN CUI 

E 1 A 


TTIVATO IL BLINK DEL NERO 

: rem 

3 

580 

POKECO,X:REM ** MODIFICA ( 

COLORE CARAT 


TERE IN COLORE DI BLINK 

: rem 

71 

590 

PRINTTAB (TY) ;CT$; 

: rem 

49 

600 

IF A$=" " THEN540 

: rem 

211 

610 

X=USR (SD + 1 4 ) : RETURN 

: rem 

1 84 


Demo: programma 2 

100 POKE56 ,28:POKE55,0 : CLR 


: rem 


1 1 




: rem 

72 

120 

Vi =1 : V2=2:CO= 

646:HI=28 :rem 

21 2 

230 

RD$="- {BLK}*** ROSSO *** {BLU}-" :GR$=" 

1 30 

POKEV1 ,0:POKEV2,HI :rem 

84 


-{blkT*** VERDE ***{blu}-" 

: PRINT" 


1 40 

REM ** MODIFICARE QUESTI VALORI PER C 


Tclr}" 

: rem 

1 88 


AMBIARE I COLORI :rem 

116 

240 

POKE368 79 , 8 : REM BACKGROUND 

NERO 


150 

DIMCT(NU) 

: rem 

251 



: rem 

1 08 

160 

FORI =0TONU : CT ( I ) =NU- 1 : NEXT : rem 

180 

270 

X=USR (EB ) : IF X=0 THEN530 : 

REM ** 

ABIL 

170 

SD = 1 6384 : REM 

** RITARDO : rem 

249 


ITA IL BLINK MODE 

: rem 

231 

1 80 

DB=81 92 : REM 

** DISABILITA BLINK 


280 

C$=RD$ 

: rem 

248 



: rem 

232 

290 

GOSUB450 

: rem 

1 80 

190 

EB=4096 : REM 

** ABILITA BLINK 


300 

X=USR (MB+ (1 6*2) +0) :REM ** 

NERO IN 

ROS 



: rem 

9 


SO 

: rem 

1 1 1 

200 

SB=2048 : REM 

** FERMA BLINK COLORE 

31 0 

X=USR (MB+ (1 6*3) +1 ) :REM ** 

BIANCO 

IN C 



: rem 

67 


IANO 

: rem 

1 90 

210 

MB= 1024 : REM 

** INIZIA BLINK COLORE 

320 

X=USR (MB+ ( 1 6* 7) +4) : REM ** 

VIOLA IN Gl 



: rem 

1 44 


ALLO 

: rem 

227 

220 

VB= 51 2 : REM 

** RETURN VALUE OF 

BLIN 

330 

X=USR (SD+l 4) : REM ** VELOCITA’ DI 

BLI 


KING COLOR 

: rem 

50 


NK 

:rem 

1 38 

230 

RC = 2 5 6 : REM 

** FERMA BLINK TUTTI I 

340 

PRINT: PRINT" {PUR} { 3 SPAZI }**ATTENZIO 


COLORI 

: rem 

252 


NE!** " 

: rem 

1 49 

240 

REM *** DIMOSTRAZIONE DEL BLINK MODE 

350 

PRINT: PRINT" {WHT}UN TASTO 

PER CAMBIAR 



: rem 

74 


E" 

: rem 

1 26 

250 

' X=USR (DB) : REM ** OCCORRE PRIMA DISAB 

360 

GOSUB530 

: rem 

177 


ILI TARLO. . . 

: rem 

66 

370 

X=USR (SB+0) :REM ** FERMA IL BLINK 

DEL 

260 

PRINT" {CLR}" 

: rem 

252 


NERO 

:rem 

85 

270 

POKE368 79 , 8 : REM BACKGROUND NERO 


380 

X=USR (VB+0) : IF XOO THEN 380 : REM ** AT 



2 rem 

1 1 1 


TENDE PER IL NERO 

: rem 

42 

280 

FOR L= 0 TO NU 

: REM ** BLINK DI TUTTI 

390 

X=USR (MB+ (1 6*5) +0) :REM ** 

NERO IN 

VER 


I COLORI 

: rem 

1 54 


DE 

: rem 

91 

290 

CL=CT ( L) 

: rem 

155 

400 

C$=GR$ : GOSUB450 

: rem 

72 

300 

X=USR ( MB+ (CL* 

1 6 ) +L) : REM ** COLORE CO 

41 0 

GOSUB530 

: rem 

173 


N BLINK 

: rem 

1 55 

420 

X=USR (SB+0) :REM ** FERMA IL NERO 


310 

POKECO , L : REM 

** MODIFICA COLORE 

CORR 



:rem 

12 


ENTE IN X 

: rem 

144 

430 

X=USR(VB+0) :IFX<>0 THEN430 

: REM ** 

ATT 

320 

PRINT" BLINK DA"L" IN"CL : rem 

17 


ENDE PER IL NERO 

: rem 

34 

330 

NEXT L 

: rem 

33 

440 

GOTO 280 

: rem 

107 

340 

X=USR (SD+60 ) : 

REM * BLINK PER 1 SECON 

450 

PRINT" {HOME} { WHT } ATTENZIONE -ATTENZION 


DO 

: rem 

1 22 


E" : PRINT 

: rem 

120 

350 

PRINT: PRINT"UN TASTO PER INIZIARE 

ti 

460 

PRINT" {BLK} { 3 SPAZI }CODICE ALLARME 



: rem 

160 


{ 2 SPAZI}" 

: rem 

160 

360 

GETA$ : IFA$=" " 

THEN360 : rem 

85 

470 

PRINT" {BLU} { 3 SPAZI }U{ 13 

* U " 


370 

X=USR (EB) 

: rem 

1 



: rem 

233 

380 

END 

: rem 

114 

480 

PRINT" {BLU} { 3 SPAZI }-{ 13 

SPAZI } 

»» 







: rem 

70 





490 

PRINT" { 3 SPAZI }"C$ 

: rem 

21 3 





500 

PRINT" {BLU} { 3 SPAZI }-^{ 13 

SPAZI } 

»» 







: rem 

63 





510 

PRINT" {BLU} { 3 SPAZI }J{ 13 

*}K " 








: rem 

219 





520 

RETURN 

: rem 

119 





530 

TX = 1 0 : TY = 20 

: rem 

1 04 
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di J. Vavasour e G. Rideout 

trad. e adatt. 

di F. Sarcina 



Sicuramente conoscerete le re- 
gole di questo antico gioco, che 
combina in e goal misura fortuna 
e strategia. Questa versione pre- 
vede tutte le regole standard. 
Due programmi, per C16/Plus4 
e per VIC 20. 


I n questa versione del Backgammon 
dovrete cercare di battere il vostro 
computer. Mediante uno speciale algo- 
ritmo il programma calcola la mossa mi- 
gliore. 

La versione per VIC 20 inespanso do- 
vrà essere digitata evitando di inserire 
spazi inutili, in quanto occupa quasi tut- 
ta la memoria disponibile. Dopo aver 
digitato il programma salvatelo su disco 
o nastro e prima di dare il RUN assicu- 
ratevi di essere nel modo maiuscolo- 
grafico (tasti SHIFT+COMMODORE). 
Se siete già pratici delle regole di gioco 
del Backgammon, potete saltare il pa- 
ragrafo che segue. 

Regole del Backgammon 

La tavola di gioco contiene 24 “punti”, 
divisi in-4 gruppi da sei, con una zona 
chiamata BAR che li separa. I giocatori 
devono spostare sulla scacchiera le pe- 
dine in loro possesso, in corrispondenza 
dei punti; un giocatore le sposterà in 
senso orario, l’altro in senso antiora- 
rio. 

Scopo del gioco è riuscire a portare le 
proprie pedine nel gruppo di punti in 
alto a sinistra per chi gioca in senso 
orario, e in alto a destra per chi si muo- 
ve in senso antiorario; dopodiché si 
avrà il diritto di incominciare a “buttare 
fuori” dal tavolo da gioco le proprie pe- 
dine. Vince chi per primo sarà riuscito 
a “buttare fuori” tutti i propri pezzi. Sul- 
lo schermo si dovranno muovere le pe- 
dine in senso orario e la zona da cui è 
possibile “buttare fuori” è quella in alto 
a sinistra. Il computer eseguirà ovvia- 
mente il movimento opposto. 


Quando si ha a disposizione il turno di 
gioco occorre tirare due dadi: supponia- 
mo per esempio di aver ottenuto 3 e 5. 
Si può muovere un proprio pezzo di tre 
punti e un altro di cinque, oppure lo 
stesso pezzo può essere mosso prima 
di cinque e poi di tre, per un totale 
quindi di otto punti (sempre comunque 
nella direzione oraria). Ma una pedina 
potrà essere spostata da una posizione 
a un’altra solo se la posizione di arrivo 


non risulta “bloccata”: questo accade 
se il vostro avversario ha due o più pedi- 
ne in un punto, quindi voi non potrete 
occuparlo. 

Se nel punto di arrivo vi è una sola 
pedina avversaria, essa può essere 
“mangiata”: il vostro pezzo occuperà la 
sua posizione e il pezzo avversario an- 
drà in BAR. Quando si ha una o più 
pedine nel BAR, non si può muovere 
alcun pezzo sulla tavola da gioco finché 
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tutte le pedine non ne sono rientrate. 
Per far rientrare una pedina occorre 
che tirando i dadi esca un numero corri- 
spondente a un punto non bloccato da 
pedine avversarie. Se per esempio ave- 
te una pedina in BAR e ottenete 1 e 5 
coi dadi, potrete muovere la pedina nel 
primo o nel quinto punto della zona in 
alto a destra, sempre ammesso che 
questi punti non siano occupati da alme- 
no 2 pedine avversarie. Il tiro dell’altro 
dado potrà a questo punto essere utiliz- 
zato normalmente. 

Se si ottengono con i dadi due numeri 
uguali (per esempio 5 e 5) si ha diritto 
a 4 mosse, ciascuna del valore del da- 
do. Quando tutte le proprie pedine 
avranno raggiunto i sei punti in alto a 
sinistra, si potrà cominciare a “buttarle 
fuori”. I dadi in questo caso servono per 
decidere quali pedine buttare fuori; ot- 
tenendo per esempio un doppio 6, con- 
verrà fare uscire le 4 pedine più distanti 
dall’ultimo punto. 

Un consiglio strategico è di cercare, per 
quanto possibile, di tenere sempre oc- 
cupati con almeno 2 pedine i punti, per 
evitare che pedine singole possano es- 
sere mangiate dall’avversario. 

La versione computerizzata 

Per tutta la durata del gioco una rap- 
presentazione grafica della tavola del 
Backgammon è visibile nella parte su- 


periore dello schermo. 

Le varie posizioni sono contraddistinte 
dalle lettere dalla A alla X (in senso 
antiorario a partire dall’angolo in alto a 
sinistra) e dalla scritta BAR. Dopo aver 
dato il RUN il programma vi chiederà 
se il computer dovrà muovere per pri- 
mo. Se siete d’accordo, digitate “S”, 
altrimenti “N”. A questo punto il com- 
puter disegnerà il tavolo da gioco e piaz- 
zerà le pedine nelle posizioni iniziali. I 
pezzi del computer sono blu e si muovo- 
no in senso antiorario da A ad X. Le 
vostre pedine sono gialle e si muovono 
da X ad A. 

Quando è il vostro turno di gioco verrà 
visualizzato il punteggio che avrete otte- 
nuto con i dadi, un numero casuale ge- 
nerato direttamente dal computer. Se 
avete ottenuto un doppio, il numero è 
scritto 4 volte, per ricordarvi che avete 
4 mosse a disposizione. Inferiormente 
vi viene richiesta la mossa che intendete 
fare: rispondete con le lettere da A ad 
X. Se la casella di partenza non contie- 
ne vostre pedine, o quella di arrivo è 
bloccata, viene visualizzato il messaggio 
“MOSSA ILLEGALE” e dovrete ripete- 
re dall’inizio l’impostazione. Se avete 
pedine nel BAR, vi verrà chiesta solo 
la casella d’arrivo. Se state buttando 
fuori i vostri pezzi, rispondete “FUORI” 
(“FU” per la versione VIC 20) alla ri- 
chiesta della casella d’arrivo. Se non 


avete mosse possibili da fare, risponde- 
te “NO” a una delle due richieste; il 
turno passerà quindi nuovamente al 
computer. Se a causa di diversi errori 
di impostazione lo schermo dovesse 
“scrollare” il tavolo da gioco, impeden- 
done la totale visualizzazione, digitate 
CANC a una delle richieste; questa op- 
zione può essere utilizzata anche per 
visualizzare le mosse non ancora utiliz- 
zate. Per buttare fuori i vostri pezzi, 
questi devono essere tutti contenuti dal- 
la posizione A alla posizione F. 

Quando è il turno del computer l’area 
di immissione dati sotto la scacchiera 
viene cancellata, mentre i tiri dei dadi 
vengono mostrati nella stessa forma. 
Mentre il calcolatore sta pensando la 
mossa migliore, viene visualizzato un 
messaggio di attesa, quindi dopo alcuni 
secondi viene mostrato il messaggio 
“MOSSA DA x A y” e la mossa esegui- 
ta. Una volta che il computer ha effet- 
tuato le sue mosse, dopo aver usato 
tutti i dadi o quando non può eseguire 
alcuna mossa valida (in questo caso vie- 
ne visualizzato il messaggio “NON POS- 
SO MUOVERE”), occorrerà premere 
un tasto; a questo punto il turno ripasse- 
rà a voi. 

Alla fine del gioco il computer dichiare- 
rà il vincitore e vi offrirà la possibilità 
di effettuare un’altra partita. 


Backsammon per VIC 20 



290 





300 

1 00 

CT=37888+4* (PEEK ( 36866) ANDl 28 ) :POKE36 

310 


879,8 

: rem 

32 

320 

1 1 0 

L$=" { 21 SPAZI}" 

: rem 

1 31 


1 20 

PRINT" {CLR} { CYN } BACKGAMMON 

” :rem 

1 02 

330 

130 

INPUT" {GIU' } INCOMINCIO IO{ 

2 SPAZI }S 

340 


{ 3 SIN} " ;MF$ 

: rem 

21 


140 

DIMB (25) : DIMR ( 3 ) : DEFFNR (X) 

=INT (RND (X) 

350 


*6) +1 

: rem 

1 73 


1 50 

DEFFNP (X) =CT- ( (X- (X>6) ) *22+Y) * (X<1 3) - 



( (26- (X+ (X<1 9) ) ) * 22-Y- 1 ) * (X>1 2) 


360 



: rem 

41 


1 60 

DATA 2 ,0,0, 0,0, -5, 0,-3, 0,0, 

0,5, -5,0 

, 0 , 

370 


0,3, 0,5, 0,0, 0,0, -2 

: rem 

247 

380 

170 

FORX=l T024 : READB (X) : NEXTX 

: rem 

96 

390 

180 

PRINT" {CLR} {RVS} {GRN} { 6 SPAZI }BACKGA 

400 


MMON { 6 SPAZI}"; 

: rem 

56 


190 

FORX=lTO!2:PRINTCHR$ (64+X) 

;" {OFF} 


41 0 


{ BLK } { 20 Q} {GRN} {RVS}" ;CHR$ (89-X) 

} 

420 



: rem 

54 


200 

IFX=6THENPRINT" BAR {OFF} {BLK} 


430 


{ 12 Q } {GRN } { RVS } BAR "; 

: rem 

239 

440 

21 0 

NEXTX : PRINT" {OFF}[< 20 P>]{RVS} " 

/ 

450 



: rem 

1 92 

460 

220 

PRINT" {OFF} {YEL}UOMO Q{ 6 

SPAZI} {BLU} 

470 


COMPUTER Q" 

: rem 

5 


230 

FORX=l T024 : IFB (X) =0THEN270 

: rem 

52 

480 

240 

Z=ABS (B (X) ) : IFZ>1 0THENZ=1 0 

: rem 

40 


250 

FORY=l TOZ 

: rem 

66 

490 

260 

POKEFNP (X) , 6 . 5-SGN (B (X) ) /2 

: NEXTY 


500 



: rem 

1 57 

51 0 

270 

NEXTX : X = 1 : Z=CT+1 70 

: rem 

91 


280 

IFX< 7ANDX<=B ( 0 ) THENPOKEZ , 6 

: Z = Z-1 : X 

=X+ 

520 


1 :GOTO280 

: rem 

1 42 



X=1 : Z=CT+ 1 59 :rem 147 

I FX< 7ANDX< = -PBTHENPOKEZ r 7 : Z = Z + 1 :X=X+1 
: GOTO 300 : rem 123 

GOSUBl 1 30 : PRINT" {CYN}" ? : rem 1 90 

IFLEFT$ (MF$ , 1 ) =”N"THENPRINT”TIRI ” ? :G 
OTO340 :rem 36 

PRINT” TIRO " ? : rem 224 

PRINT” I DADI"? : IFF$="CA”ORT$="CANC"TH 
EN360 :rem 173 

R (0 ) =FNR(X) s R ( 1 ) =FNR (X) :R(2)=0:R(3)=0 
: IFR(0) =R(1 ) THENR ( 2 ) =R ( 1 ) :R(3) =R(1 ) 

:rem 237 

FORX=0TO3: IFR (X) >0THENPRINT" {RVS}" ;C 
HR$ (R(X)+48) ?” {OFF}"? :rem 202 

NEXTX: PRINT : rem 2 48 

IFLEFT$ (MF$ , 1 ) =”N"THEN830 :rem 119 

PRINT” STO PENSANDO • • • { SU } " Jrem 214 

OB=0:FORZ=OTOl 8: IFB (Z) >0THEN420 

: rem 

NEXTZ : OB= 1 


: rem 


1 1 1 
103 

H=0 : HP=0 : HR=0 : FORY=0TO3 : X=0 : IFR ( Y) =0T 
HEN580 : rem 133 

E= 0 :rem 73 

IFB (X) <10RR(Y) +X>25THEN570 :rem 15 

IFX=0ANDB (X) >0THENE=E+1 28 :rem 213 

IFX+R (Y) = 25THENE=E+64 :rem 215 

IFB (X) =1ANDB(X+R(Y) ) =lTHENE=E+32 

:rem 92 

IFB (X) <>2ANDB (X+R (Y) ) >0THENE=E+16 

: rem 1 57 

IFB (X+R (Y) ) =-! THENE=E+8 :rem 50 

IFX<1 9THENE=E+4 :rem 119 

IFB (X+R (Y) ) <-l OR (OB=0AND (X+R ( Y) ) =25) T 
HEN570 : rem 211 

E=E+! : IFY=30RX+R (Y) = 250RB (X+R ( Y) ) >0TH 
EN560 :rem 251 
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530 

Z = Y+1 

: rem 

228 

980 

IFB (HP-HR) >1 ANDHPOHRTHEN11 20 


540 

IFR(Z) >0ANDX+R(Y) -R (Z) >- 

1 ANDX+R (Y) -R ( 


: rem 

3 


Z) <25THENIFB (X+R (Y) -R ( Z ) ) >0THENE= 

E+2 : 

990 

IFB (HP-HR) > 0ANDHP< >HRTHENB (HP-HR) = 

0 : B 


GOTO 560 

: rem 

1 47 


(0) =B(0)+1 : IFB (0) <7THENPOKECT+1 71 - 

B ( 0 

550 

Z=Z+1 : IFZ<4THEN540 

: rem 

66 


) , 6 : rem 

1 

560 

IFH<ETHENH=E : HR=R ( Y) :HP= 

X : rem 

96 

1 000 

Y=-PB:M=7: Z=CT+1 58+Y : PB=PB+1 


570 

X=X+1 : IFX<25THEN430 

: rem 

1 1 1 


: rem 

1 89 

580 

NEXTY 

: rem 

53 

1010 

IFHP<25THENPB=PB-1 :Y=-B(HP) :B(HP) 

= B( 

590 

IFH<1 28ANDB (0) >0THEN680 

: rem 

29 


HP) +1 : Z=FNP (HP) :M=11 : rem 

1 43 

600 

IFH>0THEN700 

: rem 

1 61 

1020 

IFY<MTHENPOKEZ , 0 : rem 

72 

610 

LR= 7 : FORY = OTO 3 

: rem 

1 02 

1030 

IFHP=HRTHEN1 080 : rem 

1 86 

620 

IFR(Y) <LRANDR ( Y) > 1 THENLR 

=R ( Y) : LN= 

Y 

1040 

Y=B (HP-HR) -1 :B (HP-HR) =Y: IFB (HP-HR) >1 



: rem 

171 


0THEN1 100 : rem 

1 84 

630 

NEXTY: IFLR=7THEN680 

: rem 

21 7 

1050 

Y=-Y: Z=FNP (HP-HR) :rem 

71 

640 

FORX=0TO25-LR: IFB (X) >0THEN680 


1 060 

IFY< 1 1 THENPOKEZ , 7 : rem 

1 04 



: rem 

1 0 

1070 

GOTOl 100 :rem 

1 95 

650 

NEXTX :X= 26- LR 

: rem 

52 

1080 

PO=PO+1 :rem 

1 60 

660 

IFB (X) >0THENR (LN) = 25-X : GOTO400 


1090 

IFPO=1 5THENGOSUB1 1 30:PRINT"HAI VINTO 



: rem 

32 


":GOTOl160 :rem 

1 83 

670 

X=X+1 : IFX<25THEN660 

: rem 

1 1 7 

1100 

R (OB) =0 : FORX = 0TO3 : IFR (X) >0THEN8 30 


680 

PRINT" {RVS} NON POSSO MUOVERE{OFF} 

11 : MF 


: rem 

27 


$ = "N" 

: rem 

1 1 7 

ino 

NEXTX :MF$ = "" : GOTO 31 0 :rem 

21 1 

690 

GETA$ : ON- ( A$ = " " ) GOTO 690: 

GOTO 31 0 


1 1 20 

PRINT" MOSSA ILLEGALE { 14 SIN} {SU} 

u . . 

f • 



: rem 

254 


GOTO830 :rem 

1 99 

700 

FORX = 0TO3: IFR(X) OHRTHENNEXTX 


1 1 30 

POKE21 4, 1 6: PRINT: POKE21 1 ,0 :rem 

62 



: rem 

1 83 

1140 

FORX=1 T05 : PRINTLS : NEXTX : PRINTLS ; 



710 R (X) =0 : rem 0 

720 IFB (HP) <11 ANDHP>0THENY=B (HP) : POKEFNP ( 
HP) ,0 :rem 76 

730 B (HP) =B (HP) -1 : Z$=CHR$ (HP+HR+64) : IFHP+ 
HR>24THENZ$="OFF" :rem 151 

740 X$=CHR$ (HP+64) : IFHP=OTHENX$="BAR" 

:rem 162 

750 PRI NT" MOSSA DA ";X$;" A ";Z$:rem 165 
760 IFB (HP+HR) =-1 THENPB=PB-1 :B(HP+HR) =0:1 
FPB>-7THENPOKECT+1 58-PB,7 :rem 25 

770 IFHP=0ANDB (0 ) < 8THENPOKECT+1 70-B (0 ) ,0 

:rem 64 

780 Y=B (HP+HR) +1 :B (HP+HR) =Y :rem 65 

790 IFHP+HR< 2 5ANDY< 1 1 THENPOKEFNP (HP+HR) ,6 

:GOTO810 :rem 87 

800 IFB (25) =1 5THENGOSUB1 1 30 : PRINT"HO VINT 

O" : GOTOl 160 : rem 165 

810 FORX=0TO3: IFR(X) >0THEN390 :rem 24 

820 NEXTX :MF$="N" : GOTO690 :rem 3 

830 PRI NT" MOSSA DA" ; : IFPB<0THENPRINT" BAR 
" :HP=25:F$="Y" :GOTO880 :rem 82 

840 INPUTF$ : F$=LEFT$ (F$,2) : IFF$="NO"THENM 
F$ = "" : GOTO 31 0 : rem 158 

850 IFF$ = "CA"THEN1 80 : rem 99 

860 F$=LEFT$ (F$,1) : IFF$<"A"ORF$>"X"THENl 1 
20 :rem 120 

870 HP=ASC (F$) -64 : IFB (HP) > = 0THENl 1 20 

:rem 47 

880 INPUT" { 8 SIN} A" ;T$ :HP=ASC (F$) -64 :HR= 
ASC (F$) -ASC (T$ ) : IFT$="NO"THENMF$=" " :G 
OTO310 :rem 197 

890 IFT$="CANC"THENl 80 :rem 6 


:rem 197 
:rem 90 

1160 INPUT" GIOCHI ANCORA (S/N) " ; A$ : IFLEFT 


1150 POKE21 4,16: PRINT: POKE21 1 , 0 : RETURN 


$ (A$,l ) ="S" THENRUN 


: rem 


231 


100 
110 
1 20 


1 30 
140 
150 

1 60 

170 

180 

190 

200 

21 0 


: rem 
: rem 


1 21 
1 31 


1 64 


38 


Per C16 - Plus/4 

CT=2048 : COLORO, 1 
L$=" { 39 SPAZI}" 

PRINT" {CLR} {CYN} { 7 G IU ' } " TAB ( 1 4 ) "BAC 
KGAMMON" : PRINTTAB (1 4) " [< 10 T>]" 

: rem 

INPUT" { 2 GIU'} INCOMINCIO IO 
{ 2 SPAZ I } S { 3 SIN}" ;MF$ :rem 
DIMB (25) : DIMR ( 3 ) :DEFFNR (X) =INT (RND (X) 
*6)+1 : rem 173 

DEFFNP (X) =CT- ( (X- (X>6) ) *40+Y) * (X<1 3) - 
( (26- (X+ (X<1 9) ) ) *40-Y-i ) * (X>1 2) 

:rem 41 

DATA2, 0,0, 0, 0, -5,0, -3,0, 0,0, 5,-5, 0,0, 
0 , 3 , 0 , 5 , 0 , 0 , 0 , 0 , - 2 : rem 247 

F0RX = 1T024 :READB (X) : NEXTX : rem 96 
PRINT" {CLR} {RVS}{GRN}{ 15 SPAZI }BACKG 
AMMON { 15 SPAZI }" ; :FORX=iTOl 2 

:rem 37 

PRINTCHRS (64+X) ; " {OFF} {BLK} { 38 Q} 
{GRN } { RVS } " ;CHR$ ( 8 9-X) ; :rem 251 

IFX=6THENPRINT" { 3 SPAZI }BAR 
{ 3 SPAZI } {OFF} {BLK} { 22 Q}{GRN}{RVS} 
{ 3 SPAZI } BAR { 3 SPAZI}"; : rem 25 
NEXTX : PRINT" {OFF}[< 38 P>]{RVS} "; 

rem 1 4 


900 

X=0: IFT$="FU"THENHR=HP 

: rem 

89 

220 

PRINT" {OFF} {YEL}UOMO Q{ 4 SPAZI} {BLU} 

910 

PRINTL$ ; " {SU } { DES } " ; 

: rem 

255 


COMPUTER Q" 

: rem 

5 

920 

FORX=0TO3 : IFHR< >R (X) THENNEXTX :ON- 

(HR< 

230 

FORX=1 T024 : IFB (X) =0THEN270 

: rem 

52 


>HP) GOTOl 1 20 

: rem 

1 85 

240 

Z = ABS (B (X) ) : I FZ> 1 0THENZ= 1 0 

: rem 

40 

930 

OB=X: IFHROHPTHEN980 

: rem 

7 

250 

FORY=1 TOZ 

: rem 

66 

940 

Z=HP+1 : FOROB=0TO3 : IFR (OB) =HPTHENZ 

= 7 : G 

260 

POKEFNP (X) , 86 . 5-SGN (B (X) )/2: 

NEXTY 



OTO960 

: rem 

254 


: rem 

213 

950 

IFR (OB) <HPTHENNEXTOB: GOTOl 1 20 

1 07 

270 

NEXTX : X = 1 : Z=CT+31 0 

: rem 

87 



: rem 

280 

IFX< 7ANDX< =B (0 ) THENPOKEZ , 86 : 

Z = Z-1 

: X=X 

960 

F0RX=ZT024 : IFB (X) C0THEN1 1 20 

: rem 

145 


+ 1 : GOTO280 

: rem 

1 98 

970 

NEXTX 

: rem 

55 

290 

X= 1 : Z=CT+289 

: rem 

1 51 
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300 IFX< 7ANDX< = -PBTHENPOKEZ ,87: Z = Z + 1 :X=X+ 
1 : GOTO 300 :rem 179 

31 0 GOSUBl 1 80 :GOSUBl 1 50:PRINT" {CYN } " ; 

:rem 68 

320 IFLEFT$ (MF$ , 1 ) ="N"THENPRINT"TU TIRI " 
;:GOTO340 :rem 205 

330 PRINT" I L COMPUTER TIRA :rem 214 

340 PRINT" I DADI" ; : IFF$ = "CA"ORT$ = "CANC"TH 
EN360 :rem 173 

350 R (0 ) =FNR ( X) :R(1)=FNR(X) :R(2)=0:R(3)=0 
: I FR ( 0 ) =R ( 1 ) THENR ( 2 ) =R ( 1 ) : R ( 3 ) =R ( 1 ) 

:rem 237 

360 FORX=OTO3: IFR (X) >0THENPRINT" {RVS}" ;C 
HR$ (R (X) +48) {OFF}" ; :rem 202 

370 NEXTX: PRINT : rem 248 


680 PRINT" { 2 GIU'H 3 SPAZI } {RVS }NON POS 
SO MUOVERE - PREMI UN TASTO {OFF MF$ 
="N" :rem 111 

690 GETA$ :ON- (A$=" " ) GOTO690 : GOT031 0 

:rem 254 

700 FORX=0TO3: IFR (X) OHRTHENNEXTX 

:rem 183 

710 R (X) =0 :rem 0 

720 IFB(HP) <11 ANDHP>0THENY=B (HP) : POKEFNP ( 
HP) , 0 : rem 76 

730 B (HP) =B (HP) -1 : Z$=CHR$ (HP+HR+64) : IFHP+ 
HR>24THENZ$=" FUORI" :rem 65 

740 X$=CHR$ (HP+64) : IFHP=0THENX$=" BAR" 

:rém 162 


750 

760 

770 

780 

790 

800 

810 

820 


830 


PRINT" MOSSA DA ";X$;" A " ; Z$ : rem 165 
IFB (HP+HR) =-1THENPB=PB-1 :B(HP+HR) =0:1 
FPB>-7THENPOKECT+288-PB, 87 :rem 85 

IFHP=0ANDB (0 ) < 8THENPOKECT+ 31 0-B(0) ,0 

:rem 60 

Y=B (HP+HR) +1 :B (HP+HR) =Y :rem 65 

IFHP+HR< 2 5ANDY< 1 1 THENPOKEFNP (HP+HR) ,8 
6:GOTO810 :rem 143 

IFB (25) =1 5THENGOSUB1 1 50:PRINT"HO VINT 
O.":GOTOl190 :rem 216 

FORX=0TO3 : IFR (X) >0THEN390 :rem 24 

NEXTX : PRINT" {HOME} { 7 GIU ' }"SPC (1 3) " 
{RVS } PREMI UN TASTO" :MF$="N" :GOTO690 

:rem 52 

F$="@" : PRINT"MOSSA DA"; : IFPB< 0THENPRI 


380 

IFLEFT$ (MF$ ,1 ) ="N"THEN830 

: rem 

119 


NT" BAR" : HP=25 : F$="Y" : GOTO 8 80 

1 83 

390 

PRINT" STO PENSANDO. .. {SU}" 

: rem 

214 


INPUTF$ : F$=LEFT$ (F$,2) :IFF$ = 

: rem 

400 

OB=0:FORZ=OTOl 8: IFB (Z) >0THEN420 


840 

"NO 11 THENM 



: rem 

m 


F$ = "" : GOTO 31 0 

: rem 

1 58 

41 0 

NEXTZ :OB=1 

: rem 

103 

850 

IFF$="CA" THEN 1 80 

: rem 

99 

420 

H=0:HP=0:HR=0:FORY=0TO3:X=0: 

IFR (Y) =0T 

860 

IFF$<" A"ORF$>"X"THENl 1 40 

: rem 

50 


HEN580 

: rem 

1 33 

870 

HP=ASC (F$) -64: IFB(HP) >=0THEN1 1 40 


430 

E=0 

: rem 

73 



: rem 

49 

440 

IFB (X) < 1 ORR ( Y) +X>25THEN570 

: rem 

15 

880 

T$ = "@" : INPUT" { 11 SIN}A";T$: 

HP=ASC(F$ 

450 

IFX=0ANDB (X) >0THENE=E+1 28 

: rem 

213 


) -64 : HR=ASC (F$ ) -ASC (T$ ) 

: rem 

66 

460 

IFX+R (Y) =25THENE=E+64 

: rem 

215 

890 

IFT$ = "NO"THENMF$ = " " : GOTO 31 0 

: rem 

52 

470 

IFB (X) =1 ANDB (X+R ( Y) ) =1THENE= 

E+32 


900 

I FT$ = "C ANC " THEN 1 80 

: rem 

254 



: rem 

92 

910 

X=0: I FT$=" FUORI "THENHR=HP 

: rem 

68 

480 

IFB (X) <>2ANDB (X+R (Y) ) >0THENE 

=E+1 6 


920 

PRI NTL$ ; " { SU } { DES } " ; 

: rem 

0 



: rem 

1 57 

930 

FORX= OTO 3 : IFHR< >R (X) THENNEXTX : ON- 

(HR< 

490 

IFB (X+R (Y) ) =-lTHENE=E+8 

: rem 

50 


>HP) GOTO! 1 40 

: rem 

1 88 

500 

IFX<1 9THENE=E+4 

: rem 

119 

940 

OB=X : IFHR< >HPTHEN990 

: rem 

9 

510 

IFB (X+R (Y) ) <-1 OR (OB=0AND ( X+R ( Y) )= 

25 ) T 

950 

Z=HP+1 : FOROB=0TO3 : IFR (OB) =HPTHENZ 

= 7 :G 


HEN570 

: rem 

21 1 


OTO970 

: rem 

0 

520 

E=E+1 : IFY=30RX+R (Y) =250RB (X+R (Y) ) >0TH 

960 

IFR (OB) <HPTHENNEXTOB : GOTO 1 1 40 



EN560 

: rem 

251 



: rem 

no 

530 

Z=Y+1 

: rem 

228 

970 

F0RX=ZT024 : IFB (X) <0THEN1 1 40 

: rem 

148 

540 

QA=0: IFR(Z) >0ANDX+R(Y) -R(Z) > 

-1 ANDX+R ( 

980 

NEXTX 

: rem 

56 


Y ) -R ( Z ) < 2 5THENQ A= 1 

: rem 

50 

990 

IFB (HP-HR) > 1 ANDHP< >HRTHEN1 1 40 


545 

IFQA=1THENIFB (X+R (Y) -R(Z) ) >0THENE 

=E+2 



: rem 

6 


: GOTO 560 

: rem 

246 

1000 

QA=0: IFB (HP-HR) >0ANDHP< >HRTHENB (HP-H 

550 

Z=Z+1 : IFZ<4THEN540 

: rem 

66 


R) =0 : B (0 ) =B (0 ) +1 :QA=1 

: rem 

137 

560 

IFH<ETHENH=E: HR=R (Y) :HP=X 

: rem 

96 

1010 

IFQA=1 ANDB (0 ) <7THENPOKECT+31 1-B(0) ,8 

570 

X=X+1 : 1 FX< 2 5THEN 430 

: rem 

1 1 1 


6 

: rem 

1 53 

580 

NEXTY 

: rem 

53 

1020 

Y=-PB:M=7: Z=CT+288+Y: PB=PB+1 


590 

IFH<1 2 8 ANDB (0) >0THEN680 

: rem 

29 



: rem 

1 95 

600 

IFH>0THEN700 

: rem 

161 

1030 

IFHP<25THENPB=PB-1 :Y=-B(HP) 

: B (HP) =B( 

610 

LR=7 : FORY=0TO3 

:rem 

102 


HP) +1 : Z=FNP (HP) :M=1 1 

:rem 

145 

620 

IFR ( Y) <LRANDR ( Y) >1 THENLR=R (Y) : LN= 

Y 

1040 

IFY<MTHENPOKEZ,0 

: rem 

74 



:rem 

171 

1050 

IFHP=HRTHEN1 1 00 

: rem 

1 81 

630 

NEXTY: IFLR=7THEN680 

: rem 

217 

1060 

Y=B (HP-HR) -1 :B (HP-HR) =Y : IFB (HP-HR) >1 

640 

FORX=0TO25-LR: IFB (X) >0THEN680 



0THEN1 1 20 

: rem 

1 88 



: rem 

10 

1070 

Y=-Y : Z=FNP (HP-HR) 

:rem 

73 

650 

NEXTX :X=26-LR 

: rem 

52 

1080 

IFY<1 1 THENPOKEZ ,87 

: rem 

162 

660 

IFB (X) > 0THENR ( LN ) = 2 5-X : GOTO 400 


1090 

GOTO! 1 20 

: rem 

1 99 



: rem 

32 

1100 

PO=PO+1 

: rem 

1 53 

670 

X=X+1 : IFX< 25THEN660 

: rem 

117 

ino 

IFPO=1 5THENGOSUB1 1 50 : PRINT" 

HAI VINTO 


. " :GOTOl 1 90 : rem 227 

1 1 20 R (OB) =0 : FORX = 0TO3 : IFR (X) >0THEN830 

:rem 29 

1130 NEXTX : MF$ ="" :GOT031 0 :rem 213 

1140 PRINT" MOSSA ILLEGALE { 14 SIN}{SU}";L 
$ ; " { SU } " : GOTO 830 :rem 73 

1150 POKE205 , 1 6 : PRINT : rem 231 

1 1 60 FORX=1 T05 : PRINTL$ : NEXTX : PRINTL$ ; 

: rem 1 99 

1170 POKE205,16:PRINT: RETURN : rem 3 

1180 PRINT" {HOME} { 7 GIU ’ } " SPC ( 1 3 ) " 

{ 14 SPAZI }" : RETURN :rem 30 

1190 INPUT" GIOCHI ANCORA (S/N) " ; A$ : IFLEFT 
$ (A$ , 1 ) ="S"THENRUN :rem 234 
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Print Sound 

di B. Bartlett 

trad. e adatt. 

di S. Albarelli 


Fino ad ora per creare musica col 
VIC 20 era necessario digitare 
infinite serie di numeri e utiliz- 
zare loop e polce per ascoltarla. 
Oggi non più! Potrete finalmente 
far suonare il vostro VIC con una 
semplice istruzione PRINT!! 


P rint Sound è una utility molto sem- 
plice, che rende molto più facile 
creare musica col VIC 20. 

Per farlo, infatti, basta una sola istruzio- 
ne PRINT. 

Per usare il programma non è necessa- 
rio conoscere il linguaggio macchina, 
benché il programma sia scritto in tale 
linguaggio. 

11 programma generatore 

Quando viene fatto partire il program- 
ma suona un breve motivetto dimostra- 
tivo. 

Dopo di ciò vengono visualizzate poche 
brevi istruzioni su come provare subito 
a suonare. 

Per poter utilizzare Print Sound è ne- 
cessario aprire un file logico verso il de- 
vice 2 (che normalmente corrisponde 
all’interfaccia RS 232), il quale viene 
ridefinito come device sonoro. 

Per aprire detto file logico basta utilizza- 
re l’istruzione <OPEN n. file, 2> e 
come “n. file” digitare un numero a pia- 
cere da 1 a 255 che bisognerà ricordar- 
si per inviare successivamente i dati. 
Dopo aver aperto il file, come descritto, 
possiamo inviargli dei dati, per far suo- 
nare il VIC. 

Per farlo bisogna utilizzare l’istruzione 
< PRINT# n. file, “stringa” >. 

La stringa tra virgolette dovrà essere 
composta dalle lettere corrispondenti 
alle note da suonare. 

Infatti, a ogni lettera è associata una 
nota di una scala cromatica a due otta- 
ve, nel seguente modo: 



lettera 

nota 

ottava 

lettera 

nota 

ottava 

A 

DO 

1 

N 

DO diesis 

2 

B 

DO diesis 

1 

0 

RE 

2 

C 

RE 

1 

P 

RE diesis 

2 

D 

RE diesis 

1 

Q 

MI 

2 

E 

MI 

1 

R 

FA 

2 

F 

FA 

1 

S 

FA diesis 

2 

G 

FA diesis 

1 

T 

SOL 

2 

H 

SOL 

1 

U 

SOL diesis 

2 

I 

SOL diesis 

1 

V 

LA 

2 

J 

LA 

1 

W 

LA diesis 

2 

K 

LA diesis 

1 

X 

SI 

2 

L 

SI 

1 

Y 

DO 

3 

M 

DO 

2 

Z 

PAUSA 

1-2-3 
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Quindi, se per esempio volessimo far 
suonare al computer l’inizio di Yankee 
Doodle, dovremmo trovare le lettere 


corrispondenti alle note da 

suonare: 

nota 

ottava 

lettera 

SOL 

1 

H 

DO 

2 

M 

DO 

2 

M 

RE 

2 

O 

MI 

2 

Q 

DO 

2 

M 

MI 

2 

Q 

RE 

2 

0 

SOL 

1 

H 

DO 

2 

M 

DO 

2 

M 

RE 

2 

O 

MI 

2 

Q 

DO 

2 

M 

pausa 

SI 

1 

Z 

L 


dopo di ciò dovremmo aprire il file di 
comunicazione con: 

OPEN 2,2 

e inviare le lettere al device 2 con: 


PRINT# l,“HMMOQMQOHM- 
MOQMZL” 

Dopo aver premuto RETURN, se non 
sono stati commessi errori di battitura, 
dovrebbe udirsi il motivetto. 

Locazioni speciali 

Ci sono alcune locazioni speciali che 
possono essere utili per inserire delle 
istruzioni del Print Sound in programmi 
di propria creazione. 

La prima è la locazione 983. 

Essa contiene il numero di note presenti 
nel buffer del Print Sound. 

Infatti il Print Sound ha un proprio buf- 
fer, nel quale immagazzina le note pri- 
ma di suonarle, e dal quale le cancella 
dopo averle suonate; perciò quando il 
Print Sound avrà terminato di suonare 
il motivetto presente nel buffer la loca- 
zione 983 conterrà il valore 0. 

Quindi è possibile creare nei propri pro- 
grammi un’attesa, finché il motivetto è 
stato completamente suonato, control- 
lando che il contenuto della locazione 
983 decresca fino a 0. 

Un’altra locazione utile è la locazione 


945, che contiene la durata di ogni sin- 
gola nota in sessantesimi di secondo. 
Variandone il contenuto, è possibile va- 
riare la durata della nota, e quindi la 
velocità di esecuzione di tutto il branet- 
to. 

Il piano di Print Sound 

Il secondo programma pubblicato consi- 
ste in un programma che utilizza il Print 
Sound per far funzionare un semplice 
piano a una ottava. 

Per farlo partire è necessario che il 
Print Sound sia in memoria e per suona- 
re basta premere i tasti scritti sopra la 
tastiera di piano visualizzata sullo scher- 
mo. 

Sotto ogni tasto della tastiera visualizza- 
ta sullo schermo è indicata anche la no- 
ta musicale corrispondente. 

E inoltre possibile variare la durata del- 
le note suonate, premendo i tasti “+” e 
sulla tastiera. 

Premendoli, si può osservare il valore 
in sessantesimi di secondo che varia, 
guardando nell’angolo in alto a sinistra 
dello schermo. 


Il programma Print Sound 


10 

GOSUBl 0000 

: rem 

210 

20 

GOSUB500 

: rem 

119 

40 

CLOSEl rOPENl , 2 : PRINT#! 

, "AEHMZLMZZZZZZ" 



: rem 

1 87 

50 

IFPEEK (983) >0THEN5O 

: rem 

16 

70 

PRINT#! , "FHJMKKOMMRQRMJFHJKMOMK JHJFEFH 


II 

: rem 

52 

80 

PRINT#! , "AEHKJHJFHJMKKOMMRQRMJFHJCMKJH 


FAFEF" 

: rem 

1 23 

90 

IFPEEK (983 ) >0THEN90 

: rem 

24 

100 

GOTO 20000 

: rem 

1 88 

500 

DATA76, 194,3,76,132, 3 

,141 ,219,3, 

1 52,7 


2,165,! 54,201 ,2 

: rem 

236 


510 DATA20 8 ,47,1 73/21 9,3,201 , 6 5 , 4 8 , 33 , 201 
,91 ,16,29,56,233 :rem 41 

520 DATA65, 1 68,1 85,220,3,1 72,21 5,3,1 92,25 
5,240,249,172,217,3 :rem 193 

530 DATAI 4 5,2 49,200, 1 52,41 ,2 55, 141 , 217, 3, 
238,215,3,104,168,173 :rem 24 

540 DATA21 9, 3, 24, 96, 1 04, 1 68, 1 73, 21 9, 3, 76, 
1 22,242,72,1 52,72 : rem 97 

550 DATAI 73, 21 8,3,240,1 5,206,21 8,3,2 40,6, 
104,168,104,76,191 :rem 132 

560 DATA234,! 69,0,240,27,1 73,21 5,3,240,24 
1 ,1 72,21 6,3,1 77,249 : rem 188 

570 DATA72, 200, 1 52,41 , 2 55 , 1 41 , 21 6 , 3 , 206 , 2 
15,3,169,13,141,218 : rem 172 

580 DATA 3 ,104,141 ,10, 144, 141 , 11 , 144, 141 ,1 
2,1 44,24,1 44,207,1 20 : rem 197 

590 DATAI 69,3, 1 41 , 21 , 3 , 1 41 , 39 , 3 , ! 69 , 63 , 1 4 
1 ,20,3,1 69,66 : rem 148 

600 DATAI 41 ,38, 3, 88, 96, 0,0, 0,0, 0,1 83, 1 87, 
1 91,1 95,1 99 : rem 52 

610 DATA201 ,203,207,209,212,215,217,219,2 
21,223,225,227,228,229 :rem 69 

620 DATA231 ,232,233,235,236,237,0 

:rem 128 


630 FORI = 828TOl 01 3 : READ J: POKEI , J : NEXTI 

:rem 154 

640 POKE368 78 ,1 0: SYS 82 8 : RETURN :rem 91 

1 0000 POKE36879 ,1 87 : rem 253 

10010 PRINT" {CLR} {GIU* }{WHT}{ 3 SPAZI} 

{ RVS } [<D>] [ <F> ] {DES} [<D>] [<F>] {DES} 
{DES} [<*>] {DES } { 2 SPAZI}" 

:rem 159 

10020 PRINT" { 3 SPAZI }{ RVS }[ <C> ] [<V>] 
{DES} [<C>] [<V>] {DES} {DES} 

{ 2 SPAZI } {DES } [<K>] {OFF} [<K>] " 

:rem 18 

10030 PRI NT" { 3 SPAZI } { RVS } { 2 DES}[<N>] 

[ < *> ] {DES } {DES} {OFF} [<*>] {RVS} 
{DES} [<K>] {OFF} [<K>] " :rem 72 

1 0040 PRINT" {GIU * } { 5 SPAZl}{RVS} {OFF} 
£{RVS}{DES}{ 2 SPAZI } {DES } [ <M>] 

{DES } [ < *> ] {DES} [<*>]" :rem 15 

10050 PRINT" { 5 SPAZI} {RVS} { 2 SPAZI} 

{DES} {OFF} [ <K> ] {RVS} [<K>] {DES} [<M>] 
{DES } { 2 SPAZI } {DES} {OFF} [<K>] 

{ RVS } [ <K> ] " : rem 192 

10060 PRINT" { 5 SPAZI} {RVS }£ {DES} 

{ 2 SPAZI } {DES } {OFF } [<*>] {RVS } 

{DES} {OFF} [<*>] { RVS } { DES } 

{ 2 SPAZI}" : rem 253 

1 0065 PRINT" {GIU * } {BLK} {DES } [< 20 T>] " 

:rem 71 

10070 PRINT" {BLK } { 11 DES } [ <M> ] [ <V> ] " 

:rem 253 

10080 PRINT" {DES} [< 10 T>]P[< 9 T>]" 

:rem 208 

10090 PRINT" { 10 DES} W{ 2 SPAZI }[<M>] 

[ <V> ] " :rem 41 

10100 PRINT" {DES} [< 13 T>]P[< 6 T>]" 

:rem 201 

10110 PRINT" { 6 DES} [<M>] [<V>] { 2 DES} 

{ 4 SPAZI }Q" : rem 226 
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10120 

1 01 30 

10140 

101 50 
10160 

101 70 

1 01 80 
20000 

2001 0 

20020 

20030 


20040 

20050 

20051 

20052 
20060 
30000 


30005 

30010 

30020 

30030 


30040 

30041 
30050 


PRINT" {DES} [< 5 T>]P[< 14 T>]" 

:rem 203 

PRINT" { 3 DES} [<M>] [<V>] {DES}W" 

:rem 118 

PRINT" {DES} [< 2 T>]P{< 17 T>]" 

:rem 205 

PRINT" { 2 DES } *Q* " :rem 83 

PRINT" {BLU} ORA IL SUONO { 2 SPAZI} 
E' UNA" : rem 67 

PRINT" { 5 SPAZI }PERIFERICA 

: rem 0 

RETURN : rem 218 

POKE36879 , 30 : PRINTCHR$ (14) " {CLR} 

{ RED }COME USARE PRINT SOUND " 

:rem 108 

PRINT" {GIU 1 } {BLU} USARE PRINT SOUND 
E' MOLTO SEMPLICE: { 8 SPAZI }E’ SUF 
FICENTE INVIARE" : rem 243 

PRINT" {SU} ALLA PERIFERICA DUE 
{ 3 SPAZI }UNA STRINGA DI CARAT- TER 

I." :rem 171 

PRINT" AD OGNI LETTERA COR- 
{ 2 SPAZI } RI SPONDE UNA NOTA." 

: rem 1 94 


PRINT" LA ZETA CREA UNA PAUSA" 

:rem 129 

PRINT" PROVA ANCHE TU!!!" :rem 59 

PRINT"DIGITA DELLE LETTERE 
{ 2 SPAZI }DOPO LE VIRGOLETTE!! 

{GIU' }" :rem 1 45 

IFQ=0THENQ=1 : GOSUB30000 : GOTO20000 

:rem 70 

PRINT" {RED }PRINT#1 , "CHR$ (34) : PRINT" 
{GIU' }{BLU}":END : rem 247 


PRINT" GUARDA COME FACCIO IO: 

{ 2 SPAZI } (PREMERE UN TASTO)" 


GETA$ : IFA$=""THEN30005 
PRINT" {GIU 1 } { RED } PRINT# 1 , 


:rem 34 
:rem 19 
"CHR$ (34) ; 
:rem 243 
:rem 97 
( 1 ) * 2000 )+ 


Q$="OQMAH" 

FORI = 1 T05 : FORT = 1 TOINT (RND 
200 : NEXT: PRINTMID$ (Q$,I,1 ) ; :NEXT:PR 
INT :rem 142 

PRINT#! , "OQMAH" :rem 190 

IFPEEK (983) >0THEN30041 :rem 54 

RETURN :rem 216 


La tastiera di Print Sound 


10000 POKE36879 ,238 :rem 250 

10010 PRINT" {CLR} {GIU 1 }{WHT}{ 3 SPAZI} 

{RVS } [ <D> ] [ <F> ] {DES} [ <D> ] [<F>] {DES} 
{DES } [ < *> ] {DES } { 2 SPAZI}" 

:rem 159 

10020 PRINT" { 3 SPAZI} {RVS} [<C>] [<V>] 
{DES} [<C>] [<V>] {DES} {DES} 

{ 2 SPAZI} {DES} [<K>] {OFF} [<K>] " 

:rem 18 


10030 PRINT" { 3 SPAZI} {RVS} { 2 DES}[<N>] 

[ < * > ] {DES } {DES} {OFF} [<*>] {RVS} 
{DES} [<K>] {OFF} [<K>] " :rem 72 

10040 PRINT" {GIU' }{ 5 SPAZl}{RVS} {OFF} 

£ {RVS } { DES } { 2 SPAZI } {DES } [ <M>] 
TdeS}[<*>] {DES} [<*>]" : rem 15 

10050 PRINT" { 5 SPAZI} {RVS }{ 2 SPAZI} 

{DES} {OFF} [<K>] {RVS} [<K>] {DES} [<M>] 
{DES } { 2 SPAZI } {DES} {OFF} [<K>] 

{ RVS } [ < K> ] " : rem 192 

10060 PRINT" { 5 SPAZI} {RVS }£ {DES} 

{ 2 SPAZI} {DES} {OFF} [<*>] {RVS} 

{DES} {OFF} [<*>] {RVS} {DES} 

{ 2 SPAZI}" : rem 253 

10070 PRINT" {GIU' } { 13 DES } { BLK } PI ANO" 

:rem 90 

10080 PRINT" {GIU' } { 5 SPAZI} {BLK}W E 

{ 3 SPAZI }T Y U" : rem 9 

10090 PRINT" { 3 SPAZI} {RVS} {WHT} A{BLK} 

{WHT }S {BLK} {WHT}D [<G>] F{BLK} {WHT} 
G{BLK} {WHT}H{BLK} {WHT } J [ <G> ] K" 

:rem 87 

10100 PRINT" { 3 SPAZI} {RVS} {WHT} 

{ 2 SPAZI} {BLK} {WHT} {BLK} {WHT} 
[<G> ] {BLK} {WHT} {BLK} {WHT} {BLK} 

{WHT} { <G> ] " : rem 13 

10110 PRINT" { 3 SPAZI} {RVS} {WHT} 

{ 2 SPAZI} {BLK} {WHT} {BLK} { WHT } 
[<G>] {BLK} {WHT} {BLK} {WHT} {BLK} 

{WHT} [ <G>] " : rem 14 

10120 PRINT" { 3 SPAZI} {RVS} {WHT} 

{ 2 SPAZI} {BLK} {WHT} {BLK} {WHT } 

[ <G> ] {BLK} {WHT} {BLK} {WHT} {BLK} 

{WHT} [ <G> ] " : rem 15 

10130 PRINT" { 3 SPAZI} {RVS} {WHT} 

{ 2 SPAZI} {BLK} {WHT} {BLK} {WHT } 
[<G> ] {BLK} {WHT} {BLK} {WHT} {BLK} 

{WHT} [ <G>] " : rem 16 

10140 PRINT" { 3 SPAZI} {RVS} { 2 SPAZI} 

[ <G> ] [ <G> ] [ <G> ] [<G>] [<G>] [<G>] 

[<G>] " :rem 92 

10150 PRINT" { 3 SPAZI } {RVS }{ 2 SPAZI} 

[<G>] [<G>] { <G> ] [ <G> ] [<G> ] [<G> ] 

[ <G> ] " :rem 93 

10160 PRINT" { 3 SPAZI} {RVS }{ 2 SPAZI} 

[ <G> ] [ < G > ] [ <G> ] [ <G> ] [<G>] [<G>] 

[<G>] " : rem 94 

10170 PRINT" { 3 SPAZI }DO{ 2 SPAZI }MI 

{ 2 SPAZI }SOL SI" : rem 125 

10180 PRINT" { 5 SPAZI } RE { 2 SPAZI }FA 

{ 2 SPAZI }LA{ 2 SPAZI }DO" :rem 9 
10190 OPENl , 2 : PR I NT" { HOME } " ; PEEK (945) 

:rem 45 

10200 GETAS : rem 56 

1 021 0 IFA$="A"THENB$="A" :GOTOl 1 000 

:rem 102 

1 0220 IFA$="S"THENB$="C" :GOT01 1 000 

:rem 123 

1 0230 IFA$="D" THENB$="E" :GOT01 1 000 

: rem 1 1 1 

1 0240 IFA$="F"THENB$="F" : GOTOl 1 000 

:rem 115 

1 0250 IFA$="G"THENB$="H" :GOTOl 1 000 

:rem 119 

1 0260 IFA$="H"THENB$="J" : GOTOl 1 000 

:rem 123 

1 0270 IFA$ = " J"THENB$ = "L" : GOT0 1 1 000 

:rem 128 

10280 IFA$="K"THENB$="M" : GOTOl 1 000 

:rem 131 
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1 0290 IFA$="W"THENB$="B" :GOTOl 1 000 

:rera 133 

1 0300 IFA$ = "E"THENB$ = "D" :G0T01 1 000 

:retn 109 

10310 I FA$ = " T" THENB$ = "G" :G0T01 1 000 

:rem 128 

1 0320 IFA$ = "Y"THENB$ = " I " : GOTOl 1 000 

trenti 136 

10330 IFA$ = "U"THENB$ = " K" : GOTO! 1 000 

treni 135 

10331 IFA$="+"THENPOKE945,PEEK (945) +1 tPRI 
NT" {HOME}" PEEK (945) {SIN} 

{ 2 SPAZI}" treni 138 

10332 IFA$="-"THENPOKE945, PEEK (945) -1 tPRI 
NT" {HOME} "PEEK (945) {SIN} 

{ 2 SPAZI }" t IFPEEK (945) <2THENPOKE94 
5,2 treni 60 

10340 B$=" " trem 223 

11000 PRINTfl ,B$ tGOTOl 0200 trenti 203 
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Commodore 16 sempre di più (con cassetta) 


427B 


168 Daniel Jean David 
VIC 20 memo 
Pagine 132 - L. 14.000 
cod. 410D 


Commodore 16 per te: Basic 3.5 (con cassetta) 
Lavoriamo con il Commodore 16 (con cassetta) 
Guida al Commodore Plus 4 

Commodore 16: essenziali routine (con cassetta) 


413B 

CC244 

CC256 

422B 


Biblioteca Jackson per Commodore 16 - Plus 64 - VIC 20 


Biblioteca 
per Corninoci o*® 


o* 
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Cod. 

Titolo 

Autore 

Prezzo 

410D 

VIC 20 memo 

D.J. David 

14.000 

413B 

Commodore 16 per te: BASIC 3.5 
(con cassetta) 

R. Bonelli 

35.000 

422B 

Commodore 16: essenziali routine 
(con cassetta) 

D. Lawrence 

29.000 

427B 

Commodore 16 sempre di più 
(con cassetta) 

R. Bonelli 

L. Pazzucconi 
F. Racchi 

35.000 

553D 

Giochi, trucchi e conti: 29 programmi 
per VIC 20 

M. Benelfoul 

24.000 

565D 

Sinfonia per un computer VIC 20 
(con cassetta) 

T. Hartnell 

24.000 

568D 

Giochi, giochi, giochi per il vostro 

VIC 20 (con cassetta) 

M. Ramshaw 

24.000 

CC244 

Lavoriamo con il Commodore 16 
(con cassetta) 

A. Borra 

M. Cristuib 
Grizzi 

20.000 

CC256 

Guida al Commodore Plus 4 

R. Bonelli 

L. Pazzucconi 
F. Racchi 

30.000 

CC324 

Programmi per Commodore 16 

G. Marano 

27.000 


(con cassetta) 


Questo libro è destinato a trovarsi sem- 
pre a fianco del vostro VIC 20! Il ma- 
nuale contiene tabelle riassuntive di tut- 
to ciò che riguarda questa macchina 
Commodore. Sono elencati, spiegati e 
codificati tutti i comandi e i caratteri; 
sono illustrati tutti i possibili messaggi 
di errore e i “come?” che si possono 
presentare durante la programmazio- 
ne. Il testo spazia poi nel mondo del 
linguaggio macchina 6502, con le istru- 
zioni, i registri interni e la tabella di di- 
sassemblaggio. Non mancano, infine, 
tutti gli indirizzi di routine, codificati in 
sistema esadecimale e decimale e con 
le relative istruzioni. 

Il libro termina con una raccolta di 
“trucchi” di diversi livelli di difficoltà, 
ma tutti ugualmente utili: i “come fare 
a...” sono disposti senza un ordine pre- 
ciso, ma si trovano facilmente grazie a 
un indice alfabetico. Per poter leggere 
il libro senza difficoltà è sufficiente sa- 
per usare il VIC 20. 


212 Rita Bottelli - Luciano Paz- 
zucconi - Fabio Racchi 

Commodore 16: sempre di 

più - (con cassetta) 

Pagine 336 - L. 35.000 
cod. 427B 

Ecco un testo che si rivela uno strumen- 
to indispensabile per coloro che inten- 
dono approfondire la conoscenza del 
Commodore 16. Il taglio didattico e la 
semplicità delle spiegazioni, per altro 
molto precise, lo rendono indispensabi- 
le a chi vuol saperne di più su questa 
macchina e sul suo BASIC. 

Il libro fa seguito al primo volume: 
“Commodore 16 per te”, cioè presup- 
pone una conoscenza elementare del 
BASIC. Per evitare ripetizioni di argo- 
menti già trattati, dove è necessario si 
fa riferimento al primo volume. 


Cambio programmi di grafi- 
ca, giochi e utility per C 64 e 
C 128, anche via modem. 
Danilo Ceccaroni - Via Mon- 
ti, 9 - 47042 Cesenatico 
(FO) - Tel. 0547/75007 

Vendo MPS 801 acquistata 
da pochi mesi, perfetta, a L. 
220.000. Renato Rescia - 
Via Roma, 34 - 15045 Sale 
(AL) - Tel. 84304 

Cerco il n. 2 della rivista 
Commodore Computer Club. 
Chi e' in grado di procurar- 
melo può' scrivere a: Giu- 
seppe Zavatta - Via Verdi, 
15 - 47030 S. Mauro Pasco- 
li (FO) 

Vendo per C 64 giochi su 
cassetta a L. 1.500 cadau- 
no. Dispongo di Pole Posi- 
tion, Tarzan, Ghostbusters, 
Strip Poker, Missione Im- 
possibile, Washington DC, 
ecc. Gianni Arru - Via Oltre- 
colle, 39 - 22100 Como - 
Tel. 031/280602 

Per C 64 acquisto program- 
mi gestionali e utility su di- 
sco o cassetta duplicabile. 
Vorrei inoltre riversare su di- 
sco delle cassette conte- 
nenti programmi protetti: 
qualcuno può’ aiutarmi? 
Spedire lista (con breve de- 
scrizione) a: Mauro Gruber - 
Via Carducci, 15 - 24100 
Bergamo 

Cerco software possibilmen- 
te su disco, cambio qualsia- 
si programma e cerco pro- 
grammi per SpeedDos (sia 
protetti, sia sprotetti e uti- 
lity) e per Rttx-Cw. Spedire 
lista su disco. Salvatore Ca- 
reddu - Via G. Deledda, 111- 
07100 Sassari - Tel. 
079/260336 


Per C 64 cambio o vendo 
3.000 programmi di ogni tipo 
a prezzi stracciatissimi, so- 
lo su disco. Per cambio in- 
viare il proprio archivio pro- 
grammi su disco. Michele 
Toscano - P.O. Box 16 - 
66022 Fossacesia (CH) 

Cambio programmi per C 64, 
possibilmente su disco. Di- 
spongo di oltre 900 program- 
mi. Scrivere o telefonare a: 
Mario Verini - Via Matteotti, 
10 - 54011 Aulla (MS) - Tel. 
0187/409724 

Compro istruzioni per i se- 
guenti programmi: Easy Fi- 
le, Data File, Data 64, Omni 
Cale. Telefonare sabato e 
domenica. Pierangelo Catta- 
neo - Via Monte Grappa - 
46100 Mantova - Tel. 
0376/327439 

Per C 64 compro programmi 
utility e giochi. Spedire lista 
e relativi prezzi. Indicare 
una brevissima spiegazione 
per ogni gioco. Margherita 
Zurra - Via Casteldelfino, 4 - 
10147 Torino - Tel. 
011/211544 

Vendo H VideoBASIC H per C 
64 (20 manualetti, 20 cas- 
sette, 5 contenitori/coperti- 
ne) e "ABC Personal Compu- 
ter” (4 volumi rilegati) o cam- 
bio con monitor monocroma- 
tico per C 64. Arturo Tonaz- 
zi - Via S. Giacomo, 131 - 
39050 S. Giacomo di Laives 
(BZ) 


Vendo o cambio programmi 
per C 128, C 64 e C 16 sia 
su disco che su cassetta. 
Dispongo delle ultime novi- 
tà'. Per maggiori informazio- 
ni scrivere a: Massimo Ta- 
basso - Piazza Molineris, 1 - 
12038 Savigliano (CN) 


Cambio programmi su na- 
stro per C 64. Ho circa 600 
programmi. Cerco software 
didattico (matematica, geo- 
metria, ecc.). Massima se- 
rietà’ e correttezza. Non 
vendo. Nicola D'Ambrosio - 
Via S.Leucio, 2 A Trav. 2 - 
81046 Grazzanise (CE) - 
Tel. 0823/964509 

Vendo a sole L. 20.000 cas- 
sette con 50 giochi per C 64 
(L. 400 l'uno!). Molti fra i tito- 
li migliori delle piu' grandi so- 
ftware house. Inoltre vendo 
(separatamente) i primi cin- 
que numeri di "VideoBASIC" 
a L. 3.000 l'uno. Per informa- 
zioni e contatti telefonare 
a: Paolo Veggetti - Via Mon- 
te S. Rocco, 5 - 65100 Pe- 
scara -Tel. 085/25292 

Vendo a L. 300.000 (non 
trattabili) "Enciclopedia di 
Elettronica e Informatica" 
(valore L. 500.000). Cerco 
sinclairisti e commodoristi 
allo scopo di ampliare il mio 
club. Iscrizione gratis, per 
informazioni scrivere a: An- 
tonino Aiello - Via Taormina, 
24-98100 Messina 

Vendo game per C 64: ulti- 
me novità', vasto assorti- 
mento utility, prezzi modici, 
su disco e cassetta. Telefo- 
nare ore pasti. Marzio Bene- 
detti - Via Filippo Re, 43 - 
00040 Pomezia (RM) - Tel. 
06/9121057 


Vendo o cambio su dischi e 
cassette programmi per C 
64. Inviare e richiedere li- 
sta, rispondo a tutti. Arturo 
Tonazzi - Via S.Giacomo, 
131 - 39050 S.Giacomo di 
Laives (BZ) - Tel. 
0471/940876 

Vendo, cambio circa 700 
programmi per C 64: ultime 
novità' (Garfield, Comman- 
do, ecc.), le migliori utility 
(anche con manuale). Ri- 
spondo a tutti, assicurasi 
massima serietà’. Annuncio 
sempre valido. Marialuisa In- 
tilisano - Via Regina Marghe- 
rita, 113 - 98028 S.Teresa 
di Riva (ME) - Tel. 
0942/793167 

Vendo per C 64 Oxford Pa- 
scal piu' manuale, solo su di- 
sco, spese escluse, a L. 
15.000 in contrassegno. Al- 
le stesse condizioni: The 
Tool 64 a L. 10.000 e Info- 
rtì ast a L. 9.000. Massimo 
Gallinaro - Via F. Biondo, 8 - 
35100 Padova - Tel. 
049/689473 

Vendo per il tuo C 64 2.000 
programmi a prezzi imbattibi- 
li; tutte le ultime novità'. 
Massima serietà': annuncio 
sempre valido. Telefonare 
dalle ore 19.00 alle ore 
21.00. Maurizio Anfosso - 
Via Simonetti, 4 - 14018 
Roatto d'Asti (AT) - Tel. 
0141/938118 

Per C 64 vendo giochi ma- 
gnifici (Calcio, Pac Man, Tar- 
zan, QBert, Baseball, ecc.) 
a partire da L. 500. Per ri- 
chiedere la lista e i prezzi 
scrivete a: Ivan Maccagnan - 
Via Jacopo Facen, 9 - 
32033 Lamon (BL) 






VisiCalc 

poter Gosling 


Assembler 8086 
e 8088 


Robert Erskine 


grandi manuali 

pratici 
di informatica 


I tascabili Jackson sono uno strumento 
prezioso per chi lavora con il computer. 
In poche pagine riassumono con 
chiarezza quanto è necessario sapere su 
diversi argomenti: 

INFORMATICA GENERALE 

Con il tascabile "La 
programmazione" fornisce 
conoscenze fondamentali 
per una cultura informatica 
di base. 


COMPUTER 

Sono manuali d'uso di 
immediata e semplice 
consultazione, da tenere a 
fianco del vostro computer 
"Sinclair - Spectrum - VIC 
20 - Commodore 64 - PC 
IBM - APPLE Ile - Sharp MZ 
80 A". 

SOFTWARE 

Presentano i pacchetti e i 


sistemi operativi più diffusi sul mercato, 
quali "Word Star - UNIX - MS DOS - Program- 
mi di statistica - CP/M - PC DOS - Easy Script - 
VisiCalc - Lotus 1-2-3" e suggeriscono 
idee e proposte di programmi per 
«uppo echtoruw diverse applicazioni. 

JACKSON 

LINGUAGGI 

<*«***'** — - ^ Con i tascabili "FORTRAN 77 - 

Assembler 6 502 - PASCAL - 
BASIC - Assembler Z80 - 
COBOL - Il linguag- 

g/o C - Assembler 80286 - 

F0KmMi£ . ‘ fììlL Assembler 8086 e 8088", 

avrete a disposizione 



comode tabelle di 
riferimento delle 
istruzioni e i comandi 
dei linguaggi più 
famosi. 


ogni tascabile costa solo 8.500 lire. 
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